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About This Summary 


This summary contains all the COBOL statements and related information you 
may need to refer to when programming in the Integrated Language Environment 
(ILE) COBOL language. 


Before using this summary, you should have a basic understanding of the ILE 
COBOL language and of the Operating System/400® (OS/400) operating system 
Control Language (CL). 


Who Should Use This Summary 


This publication is for programmers familiar with the COBOL language. The 
purpose of this publication is to summarize the formats of the COBOL language as 
it is used on the ILE COBOL compiler. 


In order to use this summary effectively, you should be familiar with the WebSphere 
Development Studio: ILE COBOL Programmer's Guide and the WebSphere Development 
Studio: ILE COBOL Reference. If you need reference information for the Control 
Language, see the CL and APIs section of the Programming category in the iSeries 
400 Information Center. You should also be familiar with data management 
concepts, which are described in the Database and File Systems category in the 
iSeries 400 Information Center. The Information Center is located at 


http: / /www.ibm.com/eserver /iseries /infocenter. 


Prerequisite and Related Information 


Use the iSeries Information Center as your starting point for looking up iSeries and 
AS/400e technical information. You can access the Information Center in two ways: 
* From the following Web site: 

http://www. ibm.com/eserver/iseries/infocenter 
* From CD-ROMs that ship with your Operating System/400 order: 

iSeries Information Center, SK3T-4091-02. This package also includes the PDF 


versions of iSeries manuals, iSeries Information Center: Supplemental Manuals, 
SK3T-4092-01, which replaces the Softcopy Library CD-ROM. 


The iSeries Information Center contains advisors and important topics such as CL 
commands, system application programming interfaces (APIs), logical partitions, 
clustering, Java” , TCP/IP, Web serving, and secured networks. It also includes 
links to related IBM® Redbooks and Internet links to other IBM Web sites such as 
the Technical Studio and the IBM home page. 


ILE COBOL Syntax Notation 


ILE COBOL basic formats are presented in a uniform system of syntax notation. 
This notation, designed to assist you in writing COBOL source statements, is 
explained in the following paragraphs: 


* COBOL keywords and optional words appear in uppercase letters; for example: 
MOVE 
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They must be spelled exactly as shown. If any keyword is missing, the compiler 
considers it as an error. 


Variables representing user-supplied names or values appear in all lowercase 
italic letters; for example: 


parmx 


For easier text reference, some words are followed by a hyphen and a digit or a 
letter, as in: 


identifier-l 


This suffix does not change the syntactical definition of the word. 


If punctuation marks, parentheses, arithmetic operators, logicaloperators, or such 
symbols are shown, they must be entered as part of the syntax. 


Arithmetic and logical operators (+, —, *, /, **, >, <, =, 2, and $) are special 


character reserved words.For a complete listing of reserved ILE COBOL words, 
see (Chapter 13, “ILE COBOL Reserved Word List” on page 123 


How to Read the Syntax Diagrams 


vi 


Throughout this book, syntax is described using the structuredefined below. 
* Read the syntax diagrams from left to right, from top to bottom, following the 


path of the line: 

>>— indicates the beginning of a statement. 

—-» _ indicates that the statement syntax is continued on the next line. 
>—— _ indicates that a statement is continued from the previous line. 

—+~< indicates the end of a statement. 

Diagrams of syntactical units other than statements, such as clauses, phrases, 


and paragraphs, also start with the »»—— symbol and end with the —»< 
symbol. 


Note: Statements within a diagram of an entire paragraph will not start with 
>>— and end with —»< unless their beginning or ending coincides with 
that of the paragraph. 


Required items appear on the horizontal line (the main path). 


>>—STATEMENT—required item >< 


Optional items appear below the main path. 


>>— STATEMENT 


>< 


Lasetonit fem! 
When you can choose from two or more items, they appear vertically, in a stack. 


If you must choose one of the items, one item of the stack appears on the main 
path. 


>>—STAT ENE ee i i rr 
required-choice-2 


If choosing one of the items is optional, the entire stack appears below the main 
path. 
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>>—STATEMENT. >< 
t-optional-choice-1— 
'_optional-choice-2— 


* An arrow returning to the left above an item indicates that the item can be 
repeated. 


>>—STATEMENT—*_repeatable-item >< 


A repeat arrow above a stack of required or optional choices indicates that you 
can make more than one choice from the stacked items, or repeat a single choice. 


>>—STATEMENT—*——choice-1 y >< 


Laionpaee=| L-choice-3—- 
_-choice-4— 


* A syntax fragment is delimited in the main syntax diagram by a set of vertical 
lines. The corresponding definition of the fragment begins with the name of the 
fragment followed by the syntax, which starts and ends with a vertical line. 


>> — STATEMENT —] fragment >< 


fragment: 


[—syntax items 


The following example shows how the syntax is used: 


Format 
(1) 2) | 
>>—STATEMENT —identifier-1 ad > 
_literal-] (3) 
item 1 
(4) 
>_10—identifier-m 7 > 
'_ROUNDED 
(5) (6) 
>. >< 
7 SIZE ERROR:-dmperativecstatenent-m | enp-sTATEMENT—| 

'_ON 

item 1: 
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|—-identifier-2 | 
t-Literal -2—— —__—_______ 
'_arithmetic-expression-1— 


Notes: 
1 The STATEMENT key word must be specified and coded as shown. 
2 This operand is required. Either identifier-1 or literal-1 must be coded. 


3. The item 1 fragment is optional; it can be coded or not, as required by the 
application. If item 1 is coded, it can be repeated with each entry separated 
by one or more COBOL separators. Entry selections allowed for this fragment 
are described at the bottom of the diagram. 


4 The operand identifier-m and associated TO key word are required and can 
be repeated with one or more COBOL separators separating each entry. Each 
entry can be assigned the key word ROUNDED. 


5 The ON SIZE ERROR phrase with associated imperative-statement-m are 
optional. If the ON SIZE ERROR phrase is coded, the key word ON is 
optional. 


6 The END-STATEMENT key word can be coded to end the statement. It is not 
a required delimiter. 


IBM Extensions 


An IBM extension generally modifies a rule or restriction that immediately 
precedes it. The standard is presented first, because some programmers use the ILE 
COBOL language without IBM extensions. The extensions are then presented for 
those who do use them. 


Clauses and statements illustrated within syntax diagrams that are ILE COBOL 
language extensions to the American National Standards Institute (ANSI) standard 
X3.23b-1993, American National Standard for Information Systems - Programming 
Language - COBOL are identified by footnotes. 


| IBM Extension | 


ILE COBOL language extensions to ANSI X3.23b-1993 COBOL that are part of the 
text description are enclosed in IBM Extension bars, like this paragraph. 


| End of IBM Extension | 


Documentary Syntax 


Some COBOL clauses and statements are syntax checked and treated as 
documentation by the ILE COBOL compiler. Such clauses and statements are 
identified with a footnote in syntax diagrams. 


CL Entry Codes 


The code that appears in the upper right corner of each CL syntax diagram 
contains the entry codes that specify the environment in which the command can 
be entered. The codes indicate whether or not the command can be: 


* Used in a batch or interactive job (outside a compiled program; Job:B or I) 
* Used in a batch or interactive compiled program (Pgm:B or I) 
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* Used in a batch or interactive REXX procedure (REXX:B or I) 


* Used as a parameter for the CALL CL command, or passed as a character string 
to the system program QCMDEXC (Exec). 


Industry Standard 


Standard COBOL refers to the COBOL programming language as defined in the 

document entitled American National Standard for Information Systems - 

Programming Language - COBOL, ANSI X3.23-1985, ISO 1989:1985, updated with 

the content of the following documents, in the order they are listed: 

¢ ANSI X3.23a-1989, American National Standard for Information Systems - 
Programming Language - Intrinsic Function Module for COBOL and ISO 
1989:1985/ Amd.1:1992 

* Programming Languages - COBOL, AMENDMENT 1: Intrinsic function module 

¢ ANSI X3.23b-1993, American National Standard for Information Systems - 
Programming Language - Correction Amendment for COBOL 


* ISO/IEC 1989 DAM2 Programming Languages - COBOL, AMENDMENT 2: 
Correction and clarification amendment for COBOL. 


From this point on, the term Standard COBOL will be used to refer to the ANSI 
standard just described. 
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Chapter 1. Creating Module and Program Objects 


Use the CRTCBLMOD (Create COBOL Module) command to create one or more 
module objects from ILE COBOL source members. Use the CRTPGM (Create 
Program) command to bind the module objects created by the CRTCBLMOD 
command into one or more program objects. 


Use the CRTBNDCBL (Create Bound COBOL) command to create one or more 
program objects directly from ILE COBOL source members. 


You can use the PROCESS statement in your source member to override the 
options specified for the CRTCBLMOD or CRTBNDCBL command. The options of 


the PROCESS statement are covered in|’PROCESS Statement” on page 


CRTCBLMOD Command Syntax 
The following diagram shows the syntax of the CRTCBLMOD command: 


CRTCBLMOD Command—Format 


>>. 


| CRTCBLMOD ‘s 


—*CURLIB/ *PGMID | 
MODULE—( Pbnowy-naner | spscdiecnnne- | 


*LIBL/ QCBLLESRC-——_——_—_L i 
SRCFILE—( <curtte/——} L source-fite-nane_) 


__library-name/ 


*MODULE 
SRCMBR—( source-file-member-name——) — 


L_SRCSTMF—(—source-stream-file-name—) J *PRINT 
OUTPUT— ( *NONE ) 


30 | 
een —(—_ severity ieintiel 


> 
-—* SRCMBRTXT 
TEXT—( <bLAn——|_-) J 
'text-description' 


—OPTION—(— OPTION Details | ) | CVTOPT— ( CVTOPT Details 4 
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> 


*NOMAX 
ax imum-number 


L_MSGLMT—( 


30 j 
severity-level——) 


—*STMIT— i 
*SOURCE-+—) 
*LIST. 


*ALL 
'—* NONE—— 


DBGVIEW—( 


*NONE 
*BASIC 
—*FULL— 


_OPTIMIZE—( 


*NOFIPS 


FLAGSTD—( 


*NOOBSOLETE— | 
) 


--*MINIMUM 


*OBSOLETE—— 


--* INTERMEDIATE 
*HIGH 


* 


DFRWRT, 


I *UNDSPCHR -—*ACCUPDALL 
exrospopr—(—t |_| ___} |__| _ 
'—*NODFRWRT '—*NOUNDSPCHR '—* ACCUPDNE 


] 


as! 
ce eee ) 


*YES 
[ nol) 


REPLACE—( 


-—* LIBCRTAUT. 


Lunt 


* CHANGE 


«ALL. 


i ee: 


*USE 


t-* EXCLUDE 


__quthorization-list-name— 


*PGM J 
«prc_) 


* CURRENT————_ 
TGTRLS— ( PRY 


target-release— 


2 


*HEX 


SRTSEQ—( *JOB 


*JOBRUN 


* LANGIDUNQ 
* LANGIDSHR 


*LIBL/ 
t-*CURLIB/ 


_library-name/— 
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sort-seq-table-name— 
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| 
*JOBRUN | 
LANGID—( *JOB ) 
'_language-identifier-name— 
| > 
—*PEP | *NOCOL | 
\_ENBPFRCOL— (—+—*ENTRYEXIT: ) PRFDTA—( *COL ) 
—* FULL 
>. > 
--*JOBRUN | -—*NOEXTEND— | 
CCSID—( *JOB ) ARITHMET IC—(———*EXTEND31——) 
*HEX: 
“ccsid-number— 
> > 
__NTLPADCHAR—(—padchar1 ) | 
-padchar2— 
'_padchar3 
>. > 
LICOPT—(—options _ *NONE i 
INCDIR—( directory——) 


«N 


0 


PGMINFO—(—-«P 


OPTION Details: 


cm_—t—y) 


ite ee SC 
__INFOSTMF— (—program-interface-stream-file-name—) 


*SRC 
t-* SOURCE *NOXREF *GEN *NOSEQUENCE *NOVBSUM— 
| > 
| 
r-*NOSOURCE4 ‘“*XREF—— | *NOGEN— 4 *SEQUENCE— '*VBSUM—— 
'—*NOSRC—— 
>-*NONUMBER *NOMAP. *NOOPTIONS *QUOTE *NOSECLVL— 
> > 
--*NUMBER *MAP *OPTIONS *APOST *SECLVL 
—* LINENUMBER— 
>—*PRTCORR *MONOPRC *RANGE *NOUNREF *NOSYNC 
> > 
'_xNOPRTCORR— ‘'—*NOMONOPRC— '—*NORANGE *UNREF- * SYNC 


*NOCRTF- *NODUPKEYCHK: --*NOINZDLT— 
po 
*CRTF *DUPKEYCHK *INZDLT- 
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*NOBLK. —— *NODDSFILLER *NOIMBEDERR— 

> 
'—*BLK—— *NOSTDINZ— ‘*DDSFILLER—~ ‘*IMBEDERR—— 
*STDTRUNC --*NOCHGPOSSGN —*NOEVENTF: -—*MONOPIC 


CVTOPT Details: 


rf ff 
'—*NOSTDTRUNC '—* CHGPOSSGN *EVENTF- 


*NOMONOPIC 


-—*NOVARCHAR *NODATET IME *NOPICXGRAPHIC --*NOPICNGRAPHIC— 
| 
| 
'—*VARCHAR—— —- '—*DATETIME——"__ |-*PICXGRAPHIC i*PICNGRAPHIC-—— 
L-*NOPICGGRAPHIC 
'—*PICGGRAPHIC 


*NOFLOAT *NODATE 


— *NOTIME *NOTIMESTAMP. -—*NOCVTTODATE 
rf ff ff 
* FLOAT *DATE *TIME * TIMESTAMP. '—* CVTTODATE 


CRTIBNDCBL Command Syntax 
The following diagram shows the syntax of the CRTBNDCBL command: 


CRTBNDCBL Command - Format 


>>—CRTBNDCBL > 
| —*CURLIB/ *PGMID.: i 
PGM—(—_library-name/ program-name——) 
> > 
*LIBL/ QCBLLESRC. 
secret scurt1e/—}L source-éte-nane_) J 
_library-name/ 
> > 
*PGM | 
Se ae eee le-member-name——) 
> > 
 SetSTME 1 soured -shrean=ftie=none 3 | *PRINT: | 
OUTPUT—( *NONE ) 
>- > 


30 | 
| centve—(—L severi ty-level-value——) 


/ 
—*SRCMBRTXT—__, Loption—( OPTION Details J 
TEXT—(—+-*BLANK ) ral ~ 


_'text-description'— 


OTT —| CVTOPT Details = 
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MSGLMT—( 


*NOMAX: 
max imum-numbe r- 


wiles | 
__severity-level—t—) 


—*STMI— 
(—-«source+_) 


DBGVIEW 


*LIST 


*ALL 


'—* NONE—— 


OPTIMIZE—( |-as 


*NONE | 
cy 


*FULL 


*NOFIPS 


FLAGSTD—( 


--*MINIMUM 
t-* INTERMEDIATE 
'_*HIGH 


a | 
) 
«OBSOLETE 


> 


*DFRWRT 


>-*UNDSPCHR 


'—* NOUNDSPCHR 


—* ACCUPDNE 


—*ACCUPDALL J 
) 


ae 


Lx NODFRWRT: 
0 | *YES | 
FLAG— ( severity-level ) REPLACE—( *NO ) 
*USER | 
USRPRF—( * OWNER ) 


> 
--* LIBCRTAUT——_—__ *PGM 
AUT—( *ALL ) LINKLIT—( *PRC ) 


* CHANGE 


*USE 


t-* EXCLUDE 
'__quthorization-list-name— 


> 


(—_*PRV. 


--* CURRENT————__+ 


J 


'_S IMPLEPGM 


TGTRLS 


_target-release— 


> 


ers EQ—( 


t-* LANGIDUNQ 
--* LANGIDSHR 


*JOBRUN 


*LIBL/ 
t-*CURLIB/ 


_library-name/— 


sort-seq-table-name 


A 


*JOBRUN 


LANGID: 


( 


*JOB 


__language-identifier-name— 
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> 


*PEP J 
__ENBPFRCOL— (—+—*ENTRYEXIT—+—) 
—* FULL 


*NONE 


BNDDIR—( Y__+*LIBL/ binding-directory-name ) 
t—*CURLIB/ 
t-*USRLIBL/——_ 
__library-name/— 


> > 
QILE *NOCOL 
ACTGRP—(—1-*NEW ) PRFDTA—(—1_-«cOL ) 
*CALLER 


activation-group-name— 


-—*JOBRUN —*NOEXTEND— 
CCSID—( *JOB ) ARITHMET IC—(—+—*EXTEND31——) 
*HEX 
'-ccsid-number— 


>. > 
'_NTLPADCHAR—(—padchar1 ) | 
-padchar2— 
'_padchar3 
>. > 
LICOPT—(—options—) | *NONE | 
INCDIR—( directory——) 
> 
*NO 
PGMINFO—(——*pcmLt—) 
>. >< 
\_INFOSTMF—(—program-interface-stream-fi lenge) 
OPTION Details: 
—*SRC 
* SOURCE *NOXREF *GEN *NOSEQUENCE *NOVBSUM— 
| > 
I 
—*NOSOURCE: L-*XREF—— |-«*NOGEN- '/*SEQUENCE——~ '~*VBSUM—— 
'_*NOSRC 
--*NONUMBER *NOMAP. *NOOPTIONS * QUOTE *NOSECLVL— 
>. > 
*NUMBER *MAP. *OPTIONS *APOST. *SECLVL— 
'—* LINENUMBER— 
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—*PRTCORR *MONOPRC RANGE *NOUNREF *NOSYNC 


‘—*NOPRTCORR—  ‘'-*NOMONOPRC— ='—*NORANGE *UNREF- * SYNC 


—*NOCRT FS pe eee 


*CRTF | sDUPKEYCHK Ls twz0LT_ 
*NOBLK. *STDINZ *NODDSFILLER *NOIMBEDERR— 
> > 
*BLK *NOSTDINZ—+ ‘«*DDSFILLER—~ ‘'*IMBEDERR—— 
—-*STDTRUNC *NOCHGPOSSGN *NOEVENTF: -*MONOPIC—— 
> | 
| 
—*NOSTDTRUNC~  '—*CHGPOSSGN—~--*EVENTF: —*NOMONOPIC— 
CVTOPT Details: 
-—*NOVARCHAR *NODATET IME *NOPICXGRAPHIC— *NOPICNGRAPHIC 
| 
I : > 
—*VARCHAR—— —s- '—*DATETIME——"_——- --*PICXGRAPHIC-—+ *PICNGRAPHIC 
t-*NOPICGGRAPHIC— 
'_*PICGGRAPHIC—— 
-—*NOFLOAT *NODATE *NOTIME *NOTIMESTAMP *NOCVTTODATE— 
i | 
| 
—*FLOAT—~  /*DATE—~ /*TIME—~ = *TIMESTAMP—~  —- ~-*CVTTODATE—— 
PROCESS Statement 
The syntax of the PROCESS statement is: 
>e—PROCESS—-option-1 < 
PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 
OUTPUT Parameter Options 
OUTPUT *PRINT 
NOOUTPUT *NONE 
PROCESS Statement Option CRTCBLMOD/CRTBNDCBL 
GENLVL Parameter Option 
GENLVL(nn) nn 
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PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 
OPTION Parameter Options 
SOURCE *SOURCE 
SRC *SRC 
NOSOURCE *NOSOURCE 
NOSRC *NOSRC 
NOXREF *NOXREF 
XREF *XREF 
GEN *GEN 
NOGEN *NOGEN 
NOSEQUENCE *NOSEQUENCE 
SEQUENCE *SEQUENCE 
NOVBSUM *NOVBSUM 
VBSUM *VBSUM 
NONUMBER *NONUMBER 
NUMBER *NUMBER 
LINENUMBER *LINENUMBER 
NOMAP *NOMAP 
MAP *MAP 
NOOPTIONS *NOOPTIONS 
OPTIONS *OPTIONS 
QUOTE *QUOTE 
APOST *APOST 
NOSECLVL *NOSECLVL 
SECLVL *SECLVL 
PRTCORR *PRTCORR 
NOPRTCORR *NOPRTCORR 
MONOPRC *MONOPRC 
NOMONOPRC *NOMONOPRC 
RANGE *RANGE 
NORANGE *NORANGE 
NOUNREF *NOUNREF 
UNREF *UNREF 
NOSYNC *NOSYNC 
SYNC *SYNC 
NOCRTF *NOCRTF 
CRTIF *CRIF 
NODUPKEYCHK *NODUPKEYCHK 
DUPKEYCHK *DUPKEYCHK 
NOINZDLT *NOINZDLT 
INZDLT *INZDLT 
NOBLK *NOBLK 
BLK *BLK 
STDINZ *STDINZ 
NOSTDINZ *NOSTDINZ 
NODDSFILLER *NODDSFILLER 
DDSFILLER *DDSFILLER 
Not applicable *NOIMBEDERR 
*IMBEDERR 


ILE COBOL Reference Summary 


Creating Module and Program Objects 


PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 
OPTION Parameter Options 
STDTRUNC *STDTRUNC 
NOSTDTRUNC *NOSTDTRUNC 
CHGPOSSGN *CHGPOSSGN 
NOCHGPOSSGN *NOCHGPOSSGN 
Not applicable *NOEVENTF 
*EVENTF 

MONOPIC *MONOPIC 
NOMONOPIC *NOMONOPIC 

PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 

CVTOPT Parameter Options 

NOVARCHAR *NOVARCHAR 
VARCHAR *VARCHAR 
NODATETIME *NODATETIME 
DATETIME *DATETIME 
NOCVTPICXGRAPHIC *NOPICXGRAPHIC 
CVTPICXGRAPHIC *PICXGRAPHIC 
CVTPICGGRAPHIC *PICGGRAPHIC 
NOCVTPICGGRAPHIC *NOPICGGRAPHIC 
NOCVTPICNGRAPHIC *NOPICNGRAPHIC 
CVTPICNGRAPHIC *PICNGRAPHIC 
NOFLOAT *NOFLOAT 
FLOAT *FLOAT 
NODATE *NODATE 
DATE *DATE 
NOTIME *NOTIME 
TIME *TIME 
NOTIMESTAMP *NOTIMESTAMP 
TIMESTAMP *TIMESTAMP 
NOCVTTODATE *NOCVTTODATE 
CVTTODATE *CVTTODATE 

PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 

OPTIMIZE Parameter Options 

NOOPTIMIZE *NONE 
BASICOPT *BASIC 
FULLOPT *FULL 

PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 

FLAGSTD Parameter Options 

NOFIPS *NOFIPS 
MINIMUM *MINIMUM 
INTERMEDIATE *INTERMEDIATE 
HIGH *HIGH 
NOOBSOLETE *NOOBSOLETE 
OBSOLETE *OBSOLETE 
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PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 
ExtDe OE) EXTDSPOPT Parameter Options 
DFRWRT *DERWRT 
NODFRWRT *NODFRWRT 
UNDSPCHR *UNDSPCHR 
NOUNDSPCHR *NOUNDSPCHR 
ACCUPDALL *ACCUPDALL 
ACCUPDNE *ACCUPDNE 
PROCESS Statement Option CRTCBLMOD/CRTBNDCBL 


FLAG Parameter Option 


FLAG(nn) nn 
PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 
LINKLIT Parameter Options 
LINKPGM *PGM 
LINKPRC *PRC 
PROCESS Statement Options SRTSEQ(a) CRTCBLMOD/CRTBNDCBL 
SRTSEQ Parameter Options 
HEX *HEX 
JOB *JOB 
JOBRUN *JOBRUN 
LANGIDUNQ *LANGIDUNOQ 
LANGIDSHR *LANGIDSHR 


"LIBL/sort-seq-table-name" 
"CURLIB/sort-seq-table-name" 
"library-name/sort-seq-table-name" 
"sort-seq-table-name" 


*LIBL/sort-seq-table-name 
*CURLIB/sort-seq-table-name 
library-name/sort-seq-table-name 
sort-seq-table-name 


PROCESS Statement Options LANGID() CRTCBLMOD/CRTBNDCBL 
LANGID Parameter Options 
JOBRUN *JOBRUN 
JOB *JOB 


"language-identifier-name" 


language-identifier-name 


PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 
ENBEHRCOL) ENBPFRCOL Parameter Options 
ne *PEP 
ENTRYEXIT *ENTRYEXIT 
FULL *FULL 
PROCESS Statement Options PRFDTA(a) CRTCBLMOD/CRTBNDCBL 
PRFDTA Parameter Options 
NOCOL *NOCOL 
COL *COL 
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PROCESS Statement Options CCSID(a b c) 


CRTCBLMOD/CRTBNDCBL 


CCSID Parameter Options 


a = Locale single-byte data CCSID 


JOBRUN 

JOB 

HEX 
coded-character-set-identifier 


*JOBRUN 

*JOB 

*HEX 
coded-character-set-identifier 


b = Non-locale single-byte data CCSID 


JOBRUN 

JOB 

HEX 
coded-character-set-identifier 


Not applicable 


c = Non-locale double-byte data CCSID 


JOBRUN 

JOB 

HEX 
coded-character-set-identifier 


Not applicable 


PROCESS Statement Options DATTIM(a b) 


CRTCBLMOD/CRTBNDCBL 


4-digit base century (default 1900) 
2-digit base year (default 40) 


Not applicable 


PROCESS Statement Options THREAD(a) 


CRTCBLMOD/CRTBNDCBL 


NOTHREAD Not applicable 
SERIALIZE 
PROCESS Statement Options CRTCBLMOD/CRTBNDCBL 
Ee) ARITHMETIC Parameter Options 
NOEXTEND *NOEXTEND 
EXTEND31 *EXTEND31 
PROCESS Statement Option CRTCBLMOD/CRTBNDCBL 


NOGRAPHIC 
GRAPHIC 


Not applicable 


PROCESS Statement Option 


CRTCBLMOD/CRTBNDCBL 


NONATIONAL 
NATIONAL 


Not applicable 


PROCESS Statement Option 


CRTCBLMOD/CRTBNDCBL 


NOLSPTRALIGN 
LSPTRALIGN 


Not applicable 


PROCESS Statement Option 


CRTCBLMOD/CRTBNDCBL 


NOCOMPASBIN 
COMPASBIN 


Not applicable 
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PROCESS Statement Option OPTVALUE(a) 


CRTCBLMOD/CRTBNDCBL 


NOOPT Not applicable 
OPT 
PROCESS Statement Option CRTCBLMOD/CRTBNDCBL 
NOADJFILLER Not applicable 
ADJFILLER 
PROCESS Statement Option CRTCBLMOD/CRTBNDCBL 


NTLPADCHAR(a b c) 


NTLPADCHAR Parameter Options 


a = padding character for moving single-byte 


to national 


NX"0020" 
a national hexadecimal literal 
representing one national character 


NX”"0020” 
a national character 


b = padding character for moving double-byte to national 


NX"3000" 
a national hexadecimal literal 
representing one national character 


NX"3000" 
a national character 


c = padding character for moving national to 


national 


NX"3000" 
a national hexadecimal literal 
representing one national character 


NX"3000" 
a national character 


PROCESS Statement Option LICOPT(a) 


CRTCBLMOD/CRTBNDCBL 


LICOPT Parameter Option 


licensed-internal-code-option-string 


licensed-internal-code-option-string 
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Chapter 2. COBOL Source Program—General Structure 


COBOL Source Program—Format 


>>—— IDENTIFICATION DIVISION.—PROGRAM-ID. program-name-1 
(1) (1) 
ID literal-1 


INITIAL | 
IS | RECURSIVE! | program 


L ddenti ridatonsdivigtanccontent— 


sR AN YT 
‘_ENVIRONMENT DIVISION.—environment-division-content 
>. > 
DATA OTVESION —daresdivéstan-content| 
> > 
‘PROCEDURE DIVISION: proceduneedividion=content— 
> >< 
END PROGRAM——program-name -1 a 
(1) 
| 'literal-l 
| nested program }— 
nested program: 
[IDENTIFICATION DIVISION.—PROGRAM-1ID.—+—program-name -2. > 
(1) (1) 
ID 'literal-2 
> > 
COMMON 
Lis t-INITIAL—— | program 
‘RECURS IVE— 
INITIAL 
| pecursive— L common! 
> > 
| dened Pieatlonctivistan=eoapent! 
>. > 
‘ENVIRONMENT DrviS{ON-—envihomnientadivistonccontent_ 
> b 
DATA DIVISION —dath-divistanccontent| 
> > 
-_-PROCEDURE DIVISION. —aroceduresdivisioncontent 
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> 


ae nested program - 


Notes: 
1 IBM Extension 
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END PROGRAM— 


—program-n 


_literal-2 


ame-2 
(1) 


Chapter 3. Identification Division 


Identification Division - Format 


>>—— IDENTIFICATION 
(1) 
ID 


ino _ “Eo 
literal 


-name 
(1) 


(2) | 
COMMON 
Lis INITIAL | program! 
L-RECURSIVE— 
INITIAL 7 
L_RECURSIVE I (2) 
COMMON 
>. 
L_AUTHOR. | INSTALLATION. | 


| 


| 


—DATE-WRITTEN. 


if || 


Loate-comP1 LED. 


>< 


'-SECURITY. 


Notes: 


[oan 


1 IBM Extension 


2 Allowed only for nested COBOL programs 
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Chapter 4. Environment Division 


Environment Division - Format 


>>—ENVIRONMENT DIVISION. 


> 
‘CONFIGURATION SECTION. —} Configuration Section Paragraphs _| 


>. >< 
\_TNPUT-OUTPUT SECTION. —4 Input-Output Section Paragraphs 
Configuration Section Paragraphs: 
| > 
'_SOURCE-COMPUTER. 7 | 
—source-computer-entry 
>. > 
'_OBJECT-COMPUTER. 7 | 
'‘_object-computer-entry 
| 
L_-SPECIAL-NAMES. | 
speed -namesentry 
Input-Output Section Paragraphs: 
|—FILE-CONTROL.—*-file-control-entry > 
> | | 
'_I-0-CONTROL. i 
_Y_i-o-control-entry— 
Configuration Section 
SOURCE-COMPUTER Paragraph 
SOURCE-COMPUTER Paragraph - Format 
>>—SOURCE-COMPUTER. >< 
'_computer-name sl 
DEBUGGING MODE. 
Lith 
17 
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OBJECT-COMPUTER Paragraph 


OBJECT-COMPUTER Paragraph - Format 
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>< 


>>—OBJECT-COMPUTER. 


L computer-nane— Entry im ai 


Entry: 
| 
I 
(1) 
MEMORY: 7 integer WORDS 
SIZE I-CHARACTERS— 
“MODULES——~ 


SEQUENC ee 
Lpros ray Lcoctatine_! ISH 


= aiphabee name!) 


(1) 


‘SEGMENT -LIMIT. 


Notes: 


1 Syntax-checked only. 


SPECIAL-NAMES Paragraph 


SPECIAL-NAMES Paragraph - Format 


>>—SPECIAL-NAMES. 


7 aa 
LTS 


_environment-name-2 


t-envi eee cn ee ic-name-1 
LTS 
mnemonic-name-2 
real 


cond 


ALPHABET Cl age) 


CLASS ies! 


CONSOLE einisbe! 


CRT STATUS Clause 
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(1) 


(2) 


CURRENCY SIGN Clause 


Environment Division 


CURSOR Clause 


(1) L_DECIMAL-POINT Paige) 


> 


(1) 
LINKAGE TYPE Clause 


(1) 
FORMAT Clause 


>< 


off phrase [- 


() | (3) | 
L_IOCALE Clause P 
cond: 
| ON | condition-1 
STATUS IS 
al off phrase 
ON 


STATUS | 


IS 


off phrase: 


Notes: 
1 IBM Extension 


OFF: condition-2 
| Lstatus_ List 


condition-1— 


2 Subsequent repetitions are IBM Extensions. 


3. The separator period must be used if any of the optional clauses are selected. 
Clauses can be entered in any order. 


ALPHABET Clause 
ALPHABET Clause - Format 


>>—ALPHABET—al phabet-name-1 
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>——STANDARD-1 


>< 


L-STANDARD-2 
NATIVE 
EBCDIC 
(1) 
-—NLSSORT. 
LY literal-1 
THROUGH literal-2— 
-_THRU 
LY Also—literal-3—-_ 
Notes: 


1 IBM Extension 


CLASS Clause 
CLASS Clause - Format 


a >< 


Broa ieee neem D og: =e iteral-4 
LIS 


CONSOLE Clause 
CONSOLE Clause - Format 


(1) 


>>—CONSOLE CRT 


L 


-—THROUGH peeraie 


—THRU 


>< 


IS | DISPLAY. | 


Notes: 
ll IBM Extension 


CRT STATUS Clause 
CRT STATUS Clause - Format 


(1) 
>>—CRT STATUS 


i Gis 
LIS 


Notes: 
1 IBM Extension 


CURRENCY Clause 
CURRENCY SIGN Clause - Format 
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Environment Division 


>>—CURRENCY | | literal-6. > 

SIGN IS 
> >< 

(1) 
PICTURE SYMBOL—literal-7 
WITH 
Notes: 
1 IBM Extension 
CURSOR Clause 
CURSOR Clause - Format 
(1) 
>>—CURSOR data-name-1 >< 
yee 


Notes: 
1 IBM Extension 


DECIMAL-POINT Clause 
DECIMAL-POINT IS COMMA Clause - Format 


>>—DECIMAL-POINT ql COMMA >< 
IS 


FORMAT Clause 


| IBM Extension 
FORMAT Clause - Format 


>>— FORMAT. DATE | | 
OF. TIME IS 


>——literal-8 


>< 


SIZE Phrase 1 


=] LOCALE Phrase 1 = | 
SIZE integer-4—LOCALE 


LIS Le Sionde ane’ 


SIZE Phrase 1: 


|—SIZE integer-3 
| | 
Lis] 


LOCALE Phrase 1: 


[LOCALE 7 | 
-_1S—imnemonic-name-3 
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Lo End of IBM Extension TT 


LINKAGE-TYPE Clause 
LINKAGE TYPE Clause - Format 


(1) 
>>—LINKAGE | | environment -name-3 FOR > 
TYPE IS PROGRAM 


‘PROCEDURE 


>—_literal-7 


Lusine— linkage-arguments H 


linkage-arguments: 


IS 
ARE 


a — 
ALL DESCRIBED-———_{ 


v 


integer-1 


THRU inbagerce 
“is 


THROUGH 


Notes: 
1 IBM Extension 


LOCALE Clause 


| IBM Extension 
LOCALE Clause - Format 


>>—LOCALE locale-name-1 b 
l {teral-4—__________| 
LIBRARY—literal-5. 


Ll 

ca emonic-name-5 >< 
LIS 

—— End of IBM Extension ge 


Input-Output Section 


22 


Note: The keyword FILE-CONTROL appears only once at the beginning of the 
paragraph before the first file-control entry. The keyword I-O-CONTROL 
appears only once at the being of the paragraph before the first 
input-output-control entry. 
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Environment Division 
FILE-CONTROL Paragraph 


FILE-CONTROL Paragraph - Format 1 - Sequential 


>>—FILE-CONTROL.—SELECT 


-file-name > 
Loprronat—! 


(1) 
ASSIGN | Y __assignment-name-1 > 
TO literal-1 


v 


I (2) SEQUENTIAL 
RESERVE integer LongawtZATz0N—| 
I_AREA IS 

L_AREAS 


(2) 
PADDING | | data-name-6 
L-CHARACTER IS literal-2 


(2) 
—_ ee — 
IS assignment -name-2 


ACCESS | SEQUENTIAL 


MODE | IS 


STATUS data-name-1 | 
Lene Lis (3) 
'_data-name-5 


Notes: 

1 Subsequent repetitions syntax-checked only. 
2 Syntax-checked only. 

3 IBM Extension 


FILE-CONTROL Paragraph - Format 2 - Relative 
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>>—FILE-CONTROL. 


SELECT. 7 -file-name 


‘OPTIONAL. 


(1) 
Y ___assignment-name-1 


TO literal-1 
> RELAT 1 VE—————_» 
(2) | ORGHNIZATEON———_ 
'_RESERVE integer LIS 
AREA 
L-AREAS— 
> > 
ACCESS SEQUENTIAL 
Lwope_| Lis Ly rel-key = 
RANDOM 7 rel-key 
DYNAMIC 
>- >< 


rel-key: 


|—RELATIVE 


STATUS data-name-1 
LF] Le List 


Notes: 


data-name-4 
| key Lis 


'_data-name-5 


(3) 


1 Subsequent repetitions syntax-checked only. 


2 Syntax-checked only. 
3 IBM Extension 


FILE-CONTROL Paragraph - Format 3 - Indexed 


>>—FILE-CONTROL.—SELECT—fi le-name 


>—ASSIGN 


(1) 
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assignment-name-1 
l Merit 


Environment Division 


(2) ORGANIZATION———| 
RESERVE integer IS 


AREA 
'-AREAS— 


INDEXED > 


RECORD 
SEQUENTIAL—_| Ley Lis] 


MODE | IS | RANDOM 
‘—DYNAMIC-——— 


ACCESS 


(3) 
>—— EXTERNALLY -DESCRIBED-KEY. | > 
_data-name-2. (3) 


DUPLICATES 


Lith 


>< 


STATUS data-name-1 | 
Lrte Lis (3) 
__data-name-5 


Notes: 

1 Subsequent repetitions syntax-checked only. 
2 Syntax-checked only. 

3 IBM Extension 


FILE-CONTROL Paragraph - Format 4 - Sort or Merge 


(1) 
>>—FILE-CONTROL.—SELECT—fi le-name—ASSIGN 7 > 
_TO. 
>—Y__assignment-name-1 . >< 
'literal-1 
Notes: 


1 Syntax checked only. 


| IBM Extension 


FILE-CONTROL Paragraph - Format 5 - Transaction 


>>—F ILE-CONTROL.—SELECT—fi le-name > 
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| (1) 
>—ASSIGN Y__assignment-name-1 > 
TO. | eni7—— —4 
> TRANSACTION 
Loreanrzarion———-] 
LIS 
> > 
ACCESS SEQUENTIAL 
| move Lis 7 rel-key = 
—DYNAMIC— rel-key 


> > 
| 


STATUS data-name-1 
Lette Lis lidpa-ndness-! 


>< 


CONTROL-ARER—-—-—data-nane-7-1 
LIS 


rel-key: 


[RELATIVE lt n= $$ 


KEY IS 


Notes: 


1 Subsequent repetitions syntax checked only. 
| End of IBM Extension 


l-O-CONTROL Paragraph 
I-O-CONTROL Paragraph - Format 1 - Sequential 


>>—I1-0-CONTROL. > 
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Environment Division 


> >< 
(1) 
Y__RERUN records 
ON asstgnnent-nane-1—| 
__file-name-1 
SAME | files [J 
RECORD | AREA | FOR: | | 


iF multiple file tape 


(2) 
-_COMMI TMENT—CONTROL 7 Y Fi le-name-6—__ 
__FOR 
records: 
integer-1—RECORDS file-name-2 | 
Levery_ END: REEL Lor! 
OF. UNIT 
t-integer-2—CLOCK-UNITS 
'_-condition-name-1 
files: 


| —file-name-3—*-file-name-4 | 


multiple file tape: 


(1) 

|_-MULTIPLE—FILE | 7 > 

TAPE CONTAINS 

»>—_file-name-5 | 
L_postti0N—integer-2— 

Notes: 

1 Syntax-checked only. 

2 IBM Extension 

l-O-CONTROL Paragraph - Format 2 - Relative/Indexed 

>>—]-0-CONTROL. > 
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>. >< 
(1) 
Y__RERUN records 
ON ass ignnent-nane-1—| 
__file-name-1 
SAME | files [J 
RECORD | AREA | FOR | | 
(2) 
'_COMMITMENT—CONTROL 7 Y_Fi le-name-6——__ 
_FOR 
records: 
| 7 integer-1—RECORDS 7 file-name-2 | 
'_EVERY OF 
—integer-2—CLOCK-UNITS 
'_condition-name-1 
files: 
|—file-name-3—*-file-name-4 | 
Notes: 
1 Syntax-checked only. 
2 IBM Extension 
l-O-CONTROL Paragraph - Format 3 - Sort/Merge 
>>—]-0-CONTROL. 
>. >< 
Y_SAME. RECORD | | files L. 
(1) AREA FOR 
SORT: 
(1) 
'_SORT-MERGE 
files: 


| —file-name-3—*-file-name-4 


Notes: 
1 Syntax-checked only. 
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Data Division - Format 


>>—DATA DIVISION. 


FILE SECTION.— 


=] file-section-entries 


record-description-entry 


_WORKING-STORAGE SECTION.—™ L 
data-item-description-entry— 


_LOCAL-STORAGE SECTION.— 


t-record-description-entry 
'data-item-description-entry— 


LLINKAGE SECTION.—* 


t-record-description-entry 
'data-item-description-entry— 


file-section-entries: 


v 


| —file-description-entry record-description-entry | 


File Section 


File Description Entry - Format 1a - Formatfile, Database 


>>—FD—file-name 


EXTERNAL | GLOBAL. | 
Lis Lis 


leet ee 
BLOCK integer2 


| contains— [integer 76 t-CHARACTERS— 
'-RECORDS——— 
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>. > 
RECORD: integer3 
L_ contarns— '_integer6—T0—integer/— L characters! 
>. > 
(1) 
LABEL RECORD | STANDARD: 
IS OMITTED 
RECORDS 
| are 
>. > 
(1) 
VALUE—OF. Y_system-name-1 | data-name-1 
IS literal-1 
>. >< 
(1) 
“DATA RECORD: Y data-name-2 
Lis] 
RECORDS 
L are 
Notes: 
1 Syntax-checked only. 
File Description Entry - Format 1b - Disk 
>>—FD—file-name 
Caio 7 GLOBAL. 
LIS TS 
>. > 
BLOCK: 7 7 integer2 
‘CONTAINS '_integer1—T0 | ciaracrens- 
RECORDS——~ 
>. > 
RECORD: integer3 
__CONTAINS— | cHaracters_| 
integer6—T0—integer7 7 
CONTAINS '_CHARACTERS 
varying | 
| LoePenoINe——-—dota-nane-1-| 
ON 
>. > 
(1) 
LABEL RECORD | STANDARD: 
IS OMITTED 
RECORDS 
L are 
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Data Division 


> > 
(1) 
VALUE—OF Y_system-name-1 | data-name-1 
IS literal-1 
>. >< 
(1) | 
DATA RECORD: data-name-2— 
Lis | 


RECORDS 
L are 


varying: 


{WARY ING . 
I$ Lind L size | —_—integer-4-| 
FROM 


'T0—intege 5 | cuaracters—! 


Notes: 


1 Syntax-checked only. 


File Description Entry - Format 2 - Diskette 


»>>—FD—file-name 


EXTERNAL | 


GLOBAL | 
Ls] Lis 
>. > 
(1) 
BLOCK. if integer2. 
CONTAINS] L_ integer1—t0_ L-CHARACTERS— 
RECORDS -——— 
>. > 
RECORD L integer3. 
CONTAINS] __integer6é—l0—integer/— L cHaRACTERS— 


ae 


Lare| 


(1) 
LLABEL RECORD: STANDAR 
IS OMITTED 
RECORDS 


a | 
VALUE—OF- Sys tem-name -1 


data-name-1 
l iterat-i_| 
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Data Division 


> > 
(1) | 
DATA RECORD. data-name-2— 
Lisl 
RECORDS 
Lape! 
> ig al >< 
CODE-SET. alphabet-name-1 
Lis 
Notes: 
1 Syntax-checked only. 
File Description Entry - Format 3 - Tapefile 
»>—FD—file-name | > 
7 EXTERNAL 7 GLOBAL. 
LIS LIS 
>. > 
8100 
CONTAINS integerI—T0 
> 
RECORD: integer3 7 
CONTAINS— CHARACTERS 
integer6—T0—integer7 =| 
_CONTAINS— '_CHARACTERS 
varying 7 
'_DEPENDING— data-name-1 
Lon] 
>. > 
LABEL RECORD C 7 -stanoao—-| 
IS OMITTED: 
'_RECORDS 
ARE 
>. > 
(1) 
VALUE—OF. Y_ system-name-1 | data-name-1 
IS literal-1 
>. > 
(1) 
_DATA RECORD— Y_data-name-2— 
LIS 
RECORDS 
ARE. 
>. >< 


eee hae iphabetsiansst—! 
LIS 
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varying: 


Data Division 


eel bp 
I$ Lind L size | —_—integer-4-| 
FROM 


> 
a6 tnvege a Lcuaracters— 


Notes: 


1 Syntax-checked only. 


File Description Entry - Format 4 - Printer 


>>—FD—file-name | ,, 
EXTERNAL GLOBAL 
Lis] Lis 
> a 
BLOCK integer2 
L contains Lsntegert—10_] L-CHARACTERS— 
'-RECORDS——— 
>. > 
RECORD: 7 integer3. 7 | 
‘CONTAINS '_integer6é—T0—integer7— ‘CHARACTERS 
> > 
(1) 
LABEL RECORD | STANDARD: 
IS OMITTED 
RECORDS 
L are 
> > 
(1) 
VALUE—OF Y_system-name-1 | data-name-1 
IS literal-1 
> > 
| linage clause H 
(1) 
DATA RECORD: Y_ data-name-2 
Lis] 
RECORDS 
L are 
> >< 
-CODE-SET—-—lphabet-nane- 1-1 
LIS 
linage clause: 
> 


|—LINAGE 
| Lis 


data-name-3 
Ltneegeree— Lines 
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Data Division 


FOOTING 


| dato-nane-4—-| 
AT integer-9 


| —_ Tor —-data-nane- 51 
LINES AT integer-10 


LwitH! 


| 
BOTTOM dato-nane-6-| 
Lines Lar '_integer-11 


Notes: 
1 Syntax-checked only. 


File Description Entry - Format 5 - Sort/Merge 


>>—SD—file-name > 
>. > 
RECORD: integer3 A 
CONTAINS ‘CHARACTERS 
integer6—T0—integer7 7 
CONTAINS ‘CHARACTERS 
varying 
'_DEPENDING— data-name-1 
Lon] 
>. >< 
(1) 
DATA RECORD— Y_data-name-2— 
LIS 
RECORDS 
L are 
varying: 
Eder | | 7] > 
I$ IN SIZE ] integer-4 
‘FROM 
| 0 —anteger 6 Lcuaracters_ 


Notes: 
1 Syntax-checked only. 


| IBM Extension 


File Description Entry - Format 6 - Transaction 


>>—FD—file-name 


EXTERNAL | 


Lis] Lis 


GLOBAL | 
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Data Division 


> p 
RECORD: 7 integer3. 5 | 
‘CONTAINS '_integer6—T0—integer7— ‘CHARACTERS 
>. > 
(1) 
LABEL RECORD. | STANDARD: 
IS | OMITTED 
RECORDS 
Lape 
>. >< 
(1) 
DATA 


RECORD 
Lis 


| Y data-name-2— 
RECORDS 
| are 


Notes: 
1 Syntax-checked only. 


| End of IBM Extension 


Working-Storage Section 
Data Description Entry - General Format 1 


»>>—level-number: > 
t-data-name-1 REDEFINES—data-name-2 
(1) (2) 


FILLER LIKE data-name-3 
fincager)-! 
(2) 
TYPEDEF. 
L is_ 
> > 
“tao | | BLANK: ZERO | 
IS L wen 
" | | | 7 
FORMAT Clause } GLOBAL JUST 
a ! Lis] L justirieo_ [ (3) 
RIGHT: 
> > 
OCCURS clause - Format 1 
C OCCURS clause - Format 2 |! 
> > 
PICTURE character-string | 
PIC IS aa SIZE and LOCALE Phrases = 
> > 
I LEADING 
SIGN TRAILING SEPARATE] 
Lis] L_CHARACTER 
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VALUE literal | SYNCHRONIZED 
Ls L sync_—___] (3) 
LEFT. 
(3) 


'_RIGHT. 


(2) 7p BINARY 
type-name-1 USAGE | COMPUTATIONAL 
1S COMP 


TYPE 


(2) 
|-COMPUTATIONAL-1 
(2) 
COMP-1 


(2) 
-COMPUTATIONAL-2 
(2) 
COMP-2 


(2) 


—COMPUTATIONAL-3 
(2) 
COMP-3 


(2) 


-COMPUTATIONAL-4 
(2) 
COMP-4 

DISPLAY. 


(2) 
|-DISPLAY-1 
INDEX 
|-PACKED-DECIMAL 
(2) 


POINTER 


'_PROCEDURE-POINTER: 


Notes: 

1 Cannot be used with the TYPEDEF clause. 
2 IBM Extension 

3 Syntax-checked only 


Data Description Entry - General Format 1 (continued) 


OCCURS clause - Format 1: 


ea eal Ree a key-indexed-by phrase | 
TIMES 


OCCURS clause - Format 2: 


| —OCCURS—integer-1—T0—integer-2— DEPENDING— data-name-]1——»> 
L times Low 


| key-indexed-by phrase | 
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Data Division 


key-indexed-by phrase: 


(1) 
ASCENDING Y_data-name-2 
(1) KEY IS 
DESCENDING 


— 


INDEXED Y_index-name-1— 


L py_] 


Size and Locale Phrases: 


| SIZE 7 integer-3—LOCALE 7 | 
LIS 7 mnemonic-name-1 
LIS 


FORMAT Clause: 


(2) 
| FORMAT | DATE | > 
OF TIME. IS 
'_T IMESTAMP— 
| 
literal-2 
| phrase 1 = | 
=| phrase 2 
phrase 1: 


|—SIZE integer-4 
| 
Lis] 


| 
LOCALE 7 | 
7 mnemonic-name-2 
LIS 


phrase 2: 


[| —SIZE 7 integer-5—LOCALE 7 | 
TS = mnemonic-name-3 
LIS 


Notes: 
1 Cannot be used with boolean data type 
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2 IBM Extension 


Data Description Entry - General Format 2 


>>—66—data-name-1—RENAMES—data-name-2 7 >< 
THROUGH data-name-3 
__THRU 
Data Description Entry - General Format 3 
>>—88—condition-name VALUE 4 > 
LIS 
VALUES: 
| are 
> literal-1 [ 7 >< 
—THROUGH literal-2 
THRU 
IBM Extension 
Data Description Entry - Format 4 - Boolean Data 
>>—level-number > 
t-data-name-1 REDEFINES—data-name-2— 
(1) L-LIKE—data-name-3 
FILLER J TYPEDEF. 
LIS 
> 


“les | 
IS 


gobaL—t 
Lis 


ll ac ania taaaca esse al aa SC CS CS 
OCCURS clause - Format 1 INDICATOR——integer-3. 


OCCURS clause - Format 2 | INDICATORS 
L_INDIC 
>- > 
PICTURE | 1 | VALUE 7 Rostemneeerete 
PIC Is LIS 
> > 
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Data Division 


>< 


| DISPLAY | 


USAGE 
Lis 


OCCURS clause - Format 1: 


Limes 


| —OCCURS—integer-2 ad i | | 


ae ee 
L_By. 


OCCURS clause - Format 2: 


| —OCCURS—integer-1—T0—integer-2— DEPENDING— data-name-4——» 
L times Low 


| 
INDEXED Ms ~_I 


Notes: 
1 Cannot be used with the TYPEDEF clause. 
2 Syntax-checked only 


| End of IBM Extension 


| Local-Storage Section 
| See |“Working-Storage Section” on page 35|for data-description entry clause 


| formats. 


| The EXTERNAL clause cannot be specified in the Local-Storage Section. You can 
| specify the Local-Storage Section in both recursive and non-recursive programs. 


Linkage Section 


See |“Working-Storage Section” on page 35| for data-description entry clause 


formats. 


The EXTERNAL clause cannot be specified in the Linkage Section. 
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Procedure Division - Format 1 


>>—PROCEDURE DIVISION 


USING—+ Using-phrase |— 


(1) 


RETURNING sotacrane.2. 


| | ADDRESS or] 


(1) 
GIVING 


> Y 4 Sections-1 +/—»<« 
[Pea - 


—DECLARATIVES.—* Sections-2 [- END DECLARATIVES. 


Using-phrase: 


— 


| Y data-name-1 | 


(1) 
REFERENCE 
Lpy— 
(1) 
VALUE 
Lpy— 
Sections-1: 


[sect ion-name—SECTION 


Lceanen minibar 


v 


paragraph-name. 


-—— 


LY sentence— 
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Sections-2: 


|-—sect ion-name—SECTION 


| ceanenttuniber’ 


USE statement. 


_Y_paragraph-name. 


Notes: 
1 IBM Extension 


Procedure Division - Format 2 


>>—PROCEDURE DIVISION 


Col 


LY sentence— 


—USING— Using-phrase ie 


(1) 


] 


(1) 


‘GIVING 


RETURNING data-name-2 
L_appREss or! 
1 


>< 


»>—Y_paragraph-name. 


Notes: 
1 IBM Extension 


— 


LY centence— 


Procedure Division Statements 


These statements are presented in alphabetical order. 


ACCEPT Statement 


ACCEPT Statement - Format 1 - Data Transfer 


»>>—ACCEPT—identifier-1 
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FROM 


mnemonic-name 


(1) 


'‘_environment-name 


Procedure Division Statements 


>< 


(1) 
\_END-ACCEPT: 


Notes: 
1 IBM Extension 


ACCEPT Statement - Format 2 - System Info Transfer 


>>—ACCEPT— identi fier-1—FROM——DATE 
(1) 
YY YYMMDD 


DAY 
(1) 
—YYYYDDD: 
DAY -OF-WEEK: 
TIME 


>< 


(1) 
\_END-ACCEPT: 


Notes: 
1 IBM Extension 


| IBM Extension 


ACCEPT Statement - Format 3 - Feedback 


>>—ACCEPT—identi fier-1—FROM—mnemonic-name 


L_ror—fi becnaiest) 


(1) 
\_END-ACCEPT: 


Notes: 
1 IBM Extension 


ACCEPT Statement - Format 4 - Local Data Area 


p>>—ACCEPT—identi fier-1—FROM—mnemonic-name 


FOR 


ite 
literal-1 


>< 


| enp-accepT— 


Notes: 
1 Syntax-checked only. 
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Procedure Division Statements 


ACCEPT Statement - Format 5 - PIP Data Area 


> 


> 


»>>—ACCEPT—identifier-1—FROM—mnemonic-name > 
7 > 
7 EXCEPTION—imperative-statement-1 
'_ON 
>< 
NOT: 7 EXCEPTION—imperative-statement-2— L_enp-accepT— 
ON 
ACCEPT Statement - Format 6 - Attribute Data 
p>>—ACCEPT—identifier-1—FROM—mnemonic-name > 
>< 
FOR identifier-2 | | END-ACCEPT_ 
'literal-1 '_FOR—file-name-1 
ACCEPT Statement - Format 7 - Workstation I/O 
p>—ACCEPT—identifier-1— > 
line-column-phrase 
t-FROM CRT 
ey 
IS 
=| with-phrase 
71 > 
7 EXCEPTION—imperative-statement-1 
'_ON 
>< 


NOT. 


line-column-phrase: 


7 EXCEPT ION—imperative-s purenentce | 
ON 


L_enp-accepT_ 


*__LINE 


AT. | COLUMN 
-CoL——_ 
AT——identifier-3 


NUMBER | 


identifier-2 


integer-1 


'_integer-2—— 
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with-phrase: 


|_WITH—* AUTO | 

'_AUTO-SKIP. 

BELL 

“BEEP 

BLINK 

FULL 

LL ENGTH-CHECK—! 

t-HIGHLIGHT: 
REQUIRED 

L empry-cHECkK— 

L-REVERSE-VIDEO 
SECURE 

| No-ecHo 

L-UNDERLINE 

-RIGHT-JUSTIFY 

L-SPACE-FILL 

t-TRAILING-SIGN 

UPDATE 

t-ZERO-FILL 

SIZE identifier-4 
Lis] Laie = 


(1) 
PROMPT 


L identifier-5 
CHARACTER IS~ 'literal-1 
(1) 
FOREGROUND-COLOR integer-4——4 
'_FOREGROUND-COLOUR———’_ |-IS 
(1) 
BACKGROUND-COLOR: integer-5——4 
“BACKGROUND-COLOUR———_ _IS— 
(1) 


‘_LEFT-JUSTIFY: 


Notes: 
1 Syntax-checked only. 


ACCEPT Statement - Format 8 - Session I/O 


>>—ACCEPT—identifier-1 >< 
L_-rom—prspLar— Lenp-accept_ 
ACCEPT Statement - Format 9 - Data Area 
p>>—ACCEPT—identifier-1—FROM—mnemonic-name—FOR——identifier-2 > 
literal-1 
> & 
7 LIBRARY identifier-3 | AT. identi fier-4—-| 
IN 'literal-2 '_integer-1 
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> 


_-WITH LOCK | EXCEPTION—imperative-statement-1 


Lon! 


>. >< 
Lot ——excePrion—imperative-statenent-2 Lenp-accept— 
ON 
| End of IBM Extension 
ACQUIRE Statement 
| IBM Extension 
ACQUIRE Statement - Format - TRANSACTION 
»>>—ACQUIRE——identifier FOR—file-name >< 
literal 
| End of IBM Extension 
ADD Statement 
ADD Statement - Format 1 - ADD 
>>—ADD—*—_identifier-1_—-—10—_ ident ifier-2 > 
literal-l | rounveo_ 
>. > 
a SIZE ERROR Amperativecstntenent-1_ 
ON 
>. >< 


NOT. SIZE ERROR—imperative-s satenste=2_| L_enp-anp_l 


Lon! 


ADD Statement - Format 2 - ADD GIVING 


identifier-2 


>>—ADD—*—_identifier-1 | 
_literal-1 


TO: | literal-2. 


>—GIVING—*-identifier-3 


| ounneo 
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Procedure Division Statements 


> 


Lon] 


SIZE ERROR—imperative-statenent<1) 


>< 


NOT: 7 SIZE ERROR mperdtive-tatenent-2 | enp-app_! 
ON 


ADD Statement - Format 3 - ADD CORRESPONDING 


>>—ADD—-—CORRESPONDING 


CORR 


identifier-4—T0—identifier-5 


L_eounneo_! 


. 
SIZE ERROR tamerndivessigeanent a= 


L_on— 


>< 


ALTER Statement 


ALTER Statement - Format 


NOT: 7 SIZE ERROR tnperative-statenent=2 | enp-app—! 
‘ON 


>>—ALTER—*-procedure-name-1—T0 


CALL Statement 


CALL Statement - Format 1 


‘PROCEED TO 


7 procedure-name-2—___»~« 


> 


>>—CALL 
peer 
iveergt-7_! 
(1) 
LINKAGE ey eens | 
TYPE Is PROGRAM 
(1) 
PROGRAM 
>- 
LIBRARY ee | 
Lin __literal-4 USING | BY Phrase ‘ea 
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Procedure Division Statements 


48 


>. 


| ON EXCEPTION Phrase NOT ON EXCEPTION Phrase END-CALL 
OVERFLOW—imperative statement-3 
0 Al 
'_ON 
BY Phrase: 
| z Md identifier-2 
7 REFERENCE (1) 
BY '_ADDRESS OF: 


-_file-name-1 


CONTENT—~ 
Lay (1) 
L-ADDRESS OF 


(1) 
LENGTH 0F———— 
(1) 


literal-2 
(1) 
fi le-name-1 


ON EXCEPTION Phrase: 


eo ee ve statement-1 


'—ON 


NOT ON EXCEPTION Phrase: 


ee ee ive statement-2 


'_ON 


Notes: 


1 


IBM Extension 


CALL Statement - Format 2 


> 


>>—CALL 
>——identifier-1 
higerit-t! 
(1) 
LINKAGE environment-name-1 
TYPE IS PROCEDURE 
(1) 
L_PROCEDURE: 


USING—— BY Phrase 7 
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| 
(1) 
RETURNING identifier-4 


(1) 
GIVING 


INTO: | 


ADDRESS or! 


ON EXCEPTION Phrase [4 NOT ON EXCEPTION Phrase = | 


Lon! 


BY Phrase: 


OVERFLOW—imperative sdutenent-3_) 


L_enp-carr 


REFERENCE! 


ones OF 


file-name-1 
| (1) 
OMITTED: 


identifier-2 


>< 


(1) 
(1) 


BY VALUE Phrase: 


CONTENT—~ 
Pe 


BY VALUE Phrase 


(1) 


(1) 
“LENGTH 0F———— 
(1) 


t-ADDRESS OF: 


literal-2 


identifier-2 


(1) 

t-file-name-1 
(1) 

OMITTED: 


SIZE IS Phrase: 


Lsize— jatebare2 


Lis 


i 
t-ADDRESS oF-] 
‘_LENGTH OF- 


literal-3 


(1) 
| VALUE i 


dentifier-3 


__integer-1 


eT SIZE IS Phrase = 
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50 


ON EXCEPTION Phrase: 


Pa ee ve statement-1 
ON 


NOT ON EXCEPTION Phrase: 


a ive statement-2 
ON 


Notes: 
1 IBM Extension 


| IBM Extension 


CALL GDDM Statement - Format 


J literat-1_] 


— Linkage Phrase 


Linkage Phrase: 


| In Library Phrase in 


(1) | 
>>—CALL—"GDDM” —USING rout ine-name L >< 
ikem! 
Notes: 
1 IBM Extension 
| End of IBM Extension 
CANCEL Statement 
CANCEL Statement - Format 
p>—CANCEL—*——identifier-1 — 


| 

(1) 

LINKAGE | | environment-name-1 

TYPE IS PROGRAM 
PROCEDURE 

(1) 

PROGRAM 

(1) 
PROCEDURE 


In Library Phrase: 
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| | 
(1) 
7 LIBRARY identifier-2 
_IN _literal-2 


Notes: 
1 IBM Extension 


CLOSE Statement 


CLOSE Statement - Format 1 


>< 


p>—CLOSE—*file-name-1 
Gre 
WITH 


CLOSE Statement - Formai 2 - Tape Files 


>< 


p>—CLOSE—*file-name-1 


REMOVAL 
|For 


COMMIT Statement 


| IBM Extension 


COMMIT Statement - Format 


>>—COMMIT >< 


| End of IBM Extension 


COMPUTE Statement 


COMPUTE Statement - Format 


>>—COMPUTE—*_identifier-1 | = | arithmetic-expression——_—» 
ROUNDED EQUAL 
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> 


SIZE ERROR —innerat ivecstotencniat! 


L on] 
> >< 
NOT: al SIZE ERROR—imperative-statement-2— L_enp-compute— 
_ON 
CONTINUE Statement 
CONTINUE Statement - Format 
>>—CONTINUE >< 
DELETE Statement 
DELETE Statement - Format 
>>—DELETE—file-name > 
| record (1) 
FORMAT identifier-1 
Lis Liiterat-1 
> > 
() i 
L_NULL-KEY-MAP. identifier-2 
Lis 
>- > 
INVALID jiupevantivexstntemantA—! 
| xey_| 
> < 
NOT INVALID— imperative-statement-2 END-DELETE 
L key 
Notes: 
1 IBM Extension 
DISPLAY Statement 
DISPLAY Statement - Format 1 - Data Transfer 
re identifier-1 > 
literal-1 | =| mnemonic-name 
UPON (1) 
‘_environment-name 
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>< 


(2) 
NO—ADVANCING 
Ltn 


Notes: 
1 IBM Extension 
2 Syntax-checked only. 


(1) 


'_END-DISPLAY. 


; IBM Extension CT 


DISPLAY Statement - Format 2 - Local Data Area 


>>—DISPLAY—*——ident P| tee wenn > 
literal -]—— 
>. >< 
(1) L_enp-prspLay_ 


ls ime el 
literal-2 


Notes: 
1 Syntax-checked only. 


DISPLAY Statement - Format 3 - Workstation I/O 


>>—DISPLAY—"——identifier-1 
'literal-1 


]ine-column-phrase = 


END-DISPLAY 


UPON——CRT 7 
—CRT-UNDER 


MODE BLOCK 
Lis 


line-column-phrase: 


— with-phrase [——_ 


| Y__l| INE 


identifier-2 | 


AT | COLUMN NUMBER | 
'COL—— 


integer-1 


oo 
integer-2—— 
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with-phrase: 


BELL 


|—WITH 


Notes: 


'—BEEP 
BLINK 


HIGHLIGHT: 
T-REVERSE-VIDEO 


--UNDERLINE 


BLANK——SCREEN 
—LINE 


SIZE 


is 


(1) 


identifier-4 
integer-3——_ 


FOREGROUND-COLOR 
(1) 


(1) 


'-FOREGROUND-COLOUR 


BACKGROUND-COLOR 


integer-4— 
Lis 


(1) 


'—BACKGROUND-COLOUR 


1 Syntax-checked only. 


integer-5— 
Lis 


DISPLAY Statement - Format 4 - Session I/O 


>>— DISPLAY 


Y__identifier-1 


literal-1 | 


UPON—DISPLAY | 


NO—ADVANCI ne! 


Lith 


L_enp-pispLay_—| 


DISPLAY Statement - Format 5 - Data Area 


a am a 


literal-1 


—_UPON—mnemonic-name—FOR——identifie 


_literal-2 


>< 


———" 


> 
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a 


LIBRARY——identifier-3 
literal-3 


identifie 
'_integer-1 


ra 


Procedure Division Statements 


> > 
LWITH LOCK | 7 EXCEPTION—imperative-statement-1_ 
'_ON 
> >< 
NOT: 7 EXCEPTION—imperative-statement-2— L_enp-prspLay— 
ON 
| End of IBM Extension 
DIVIDE Statement 
DIVIDE Statement - Format 1 - INTO 
»>>—DIVIDE——identifier-1 INTO—*-identifier-2 = > 
_literal-1 '_ROUNDED 
>. > 
7 SIZE ERROR —inperativesstutenent=4_| 
'_ON 
>. >< 
NOT. 7 SIZE ERROR —tmperativecstatenent.2— | enp-prvipe— 
‘ON 
DIVIDE Statement - Format 2 - INTO GIVING 
>>—DIVIDE——identifier-1 INTO——identifier-2 > 
literal-1 'literal-2 
>—GIVING—*-identifier-3 7 > 
'_ROUNDED 
>. > 
7 SIZE ERROR'—dmmnenabtvecstatenentt_! 
'_ON 
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> 


>< 
NOT. 7 SIZE ERROR -imperdtivesstatenent<2 | enp-prvipe_| 
'_ON 
DIVIDE Statement - Format 3 - BY GIVING 
>>—DIVIDE——identifier-1 BY——identifier-2 > 
'literal-1 'literal-2 
>—GIVING—*-identifier-3 7 > 
‘ROUNDED: 
> 
7 SIZE ERROR —imparat ivessiotencntt_ 
'_ON 
>< 
NOT: J SIZE ERROR—imperdtivesstatenent=2 | enp-prvioe—| 
‘ON 
DIVIDE Statement - Format 4 - INTO GIVING REMAINDER 
>>—DIVIDE——identifier-1 INTO——identifier-2 > 
literal-1 'literal-2 
ON ee ee fe ee > 
‘ROUNDED 
> 
7 SIZE ERROR—imperat ive-statenent-1_ 
ON 
7 7 >< 
_NOT- SIZE ERROR—imperative-statement-2 '-END-DIVIDE 
Lon] 
DIVIDE Statement - Format 5 - BY GIVING REMAINDER 
>>—DIVIDE——identifier-1 BY——identifier-2 > 
'literal-1 'literal-2 
>—GIVING—identifier-3 REMAINDER—identifier-4 > 
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'_ROUNDED— 


Procedure Division Statements 


> p 
| SIZE ERROR—imperative-statenent<1_) 
'_ON 


>. >< 
iz JIL al 
ie ERROR—imperative-statement-2 END-DIVIDE 
ON 
DROP Statement 
| IBM Extension 
DROP Statement - Format 
»>—DROP——identifier FROM—file-name >< 
‘literal 
| End of IBM Extension 
ENTER Statement 
ENTER Statement - Format 
(1) 
>>—ENTER language-name 7 >< 
'_rout ine-name 
Notes: 
1 Syntax-checked only. 
EVALUATE Statement 
EVALUATE Statement - Format 
p>>—EVALUATE——identifier-1 > 
L-literal-1 
r-expression-1 | 
TRUE Y_ALSO identifier-2 
\_FALSE————_ t-literal-2 
L-expression-2—- 
TRUE 
'_FALSE 
aaa WHEN phrase ] imperative-stmt - ] +» 


ae ALSO phrase 
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EXIT Statement 


>. >< 
L_WHEN OTHER—imperative-stmt-2_ | eND-EVALUATE_ 
WHEN phrase: 
|_WHEN——ANY. | 
t-condition-1 
TRUE 
FALSE 
| identifier-3 7 
NOT literal-3 THROUGH | identifier-4— 
‘_arith-expr-1 THRU [titerat-4 
arith-expr-2— 
ALSO phrase: 
[-—-ALSO——ANY. | 
t-condition-2 
TRUE 
FALSE 
| identifier-5 Z| 
NOT literal-5 THROUGH | identifier-6— 
__arith-expr-3 THRU: | titerat-6 
arith-expr-4— 
EXIT Statement - Format 
p>>—EXIT >< 
EXIT PROGRAM Statement 
EXIT PROGRAM Statement 
>>—EXIT PROGRAM >< 


Notes: 


1 


IBM Extension 


GOBACK Statement 


GOBACK Statement - Format 
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IBM Extension 


(1) 


'-AND CONTINUE RUN UNIT. 


Procedure Division Statements 
>>—GOBACK. >< 


| End of IBM Extension 


GO TO Statement 


GO TO Statement - Format 1 - Unconditional 


eae ms 
TO 


GO TO Statement - Format 2 - Conditional 


cca an 7 ea procedure -name - 1——DEPENDING identi fier-—___-« 
TO Lon] 


GO TO Statement - Format 3 - Altered 


>>—G0 is >< 
Lo] 


IF Statement 
IF Statement — Format 


>>—IF—condition 


L ten 


v 


i ace tatement-1 
NEXT SENTENCE 


ELSE—_—_—s tatement -2 
L_NEXT SENTENCE 


Y__statement-1 ELSE—*——s tatement-2 7 
| L_END-IF- 


INITIALIZE Statement 


INITIALIZE Statement - Format 


>>— INITIALIZE—*-identifier-1 > 
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> >< 
__REPLACING—*——ALPHABETIC BY Phrase 
L-ALPHANUMERIC | r 
t—-NUMERIC 
L-ALPHANUMERIC-EDITED— 
L-NUMERIC-EDITED 
(1) 
DBCS 
(1) 
t-DBCS-EDITED 
(1) 
NATIONAL 
BY Phrase: 
| | BY identifier-2 | 
DATA literal-1 
Notes: 
1 IBM Extension 
INSPECT Statement 
INSPECT Statement - Format 1 
>>—INSPECT—identifier-1—TALLYING > 
>—_identifier-2—FOR—*——CHARACTERS—~ >< 
=] phrase 1 H 
ALL Y_4 phrase 2 
| tevin! | a 


phrase 1: 


| —-BEFORE 


AFTER 


phrase 2: 
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| | identifier-4 
INITIAL literal-2 


|-—~identifier-3 


Procedure Division Statements 


v 


_literal-1 


| BEFORE | 
AFTER 


INI 


TIAL | 


INSPECT Statement - Format 2 


| 
identifier-4—] 
literal-2 


p>>—INSPECT—identifier-1—REPLACING > 
>—*—_CHARACTERS BY——identifier-5~—~ >< 
_literal-3 L phrase 1 4 
ALL Y_) phrase 2 
LEADING 
L_-FIRST—— 
phrase 1: 
| BEFORE | identifier-4 | 
AFTER. INITIAL literal-2 
phrase 2: 
|—-identifier-3 Bie enter? > 
Liter). literal-3 
pe | 
BEFORE | | identi fter-4—— 
AFTER: INITIAL literal-2 
INSPECT Statement - Format 3 
p>>—INSPECT—identifier-1—TALLYING > 
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>—_identifier-2—FOR—*——CHARACTERS—~ REPLACING-————> 
L phrase 1 = 
ALL Y_4 phrase 2 
Lt eaprne— | r 
>—Y__CHARACTERS BY——identifie >< 


_literal-3 


r-5——~ 
=e) phrase 1 H 


ALL Y_1 phrase 3 
LEADING 
_FIRST—— 
phrase 1: 
| BEFORE | | | identifier-4 | 
AFTER INITIAL literal-2 
phrase 2: 
|——identifier-3 | us | 
literal-1 BEFORE | | ident ifier-4— 
AFTER INITIAL literal-2 
phrase 3: 
|—~identifier-3 BY——identifier-5 
literal-1 _literal-3 
> | 
BEFORE. | identi fier-4—— 
AFTER INITIAL literal-2 


INSPECT Statement - Format 4 


>>—INSPECT—identifier-1—CONVERTING——identifier-6 
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_literal-4 


TO— 


ay ee 
'literal-5 


Procedure Division Statements 


>< 


BEFORE | | identi fier-4—— 
AFTER INITIAL literal-2 


MERGE Statement 


MERGE Statement — Format 


p>>—MERGE—file-name-1 ASCENDING 


DESCENDING KEY 


SEQUENCE: Siphabet hanes! 
COLLATING Lis 


OUTPUT PROCEDURE Phrase: 


[OUTPUT we ee eee er 


OUTPUT PROCEDURE Phrase 


THRU 


MOVE Statem 


THROUGH avoceduvénamelt=| 


ent 


MOVE Statement - Format 1 


>>—MOVE— 


>< 


—identifier-1 TO—identifier-2 


_literal-1 


MOVE Statement — Format 2 


>>—MOVE— 


--CORRESPONDING identifier-1—T0—identifier-2 


>< 


CORR 
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Procedure Division Statements 
MULTIPLY Statement 


MULTIPLY Statement - Format 1 


p>>—MULTIPLY——identifier-1 BY—identifier-2 7 
literal-1 ‘ROUNDED 


7 SIZE ERROR —imperattve-shotanent <1 
'_ON 


>< 


> 
Lots IZE ERROR—imperative-s foteneni 2! 


ON 


MULTIPLY Statement - Format 2 - GIVING 


p>>—MULTIPLY——identifier-1 BY——identifier-2 


>—GIVING 


Leno-muutrpLy 


_literal-1 _literal-2 


Y_identifier-3 


| ounpeo 


7 SIZE ERROR amaerdhivecctddanent=t | 
'_ON 


>< 


NOT 


7 SIZE ERROR—imperative-s toteheng <2) 
ON 


OPEN Statement 


OPEN Statement — Format 1 — Sequential 
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Leno -muLtipLy— 
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>>—OPEN—Y 


L-1-0—*_fi le-name-3 


'_EXTEND—*fi le-name-4 


>< 


— 


INPUT—*_file-name-1 
L-REVERSED 
=a REWIND— 
WITH 
L-OUT PUT: haps 
NO REWIND 
Lith 


— 


OPEN Statement - Format 2 - Indexed and Relative 


>>—OPEN—* 


— 


Y_file-name-1 


INPUT 


|_OUTPUT—*—fi le-name-2 


__]-0—*_file-name-3— 


>< 


— 


[.__""_\"""""— IBM Extension eT 


OPEN Statement - Format 3 - TRANSACTION 


>>—OPEN—I-0. 


v 


file-name-3 


>< 


PERFORM Statement 


PERFORM Statement - Format 1 


End of IBM Extension 


>>—PERFORM——procedure-name-1 al >< 
THROUGH procedure-name-2 
'_THRU 
'_imperative-statement—END-PERFORM 
PERFORM Statement - Format 2 
>>— PERFORM > 
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>——procedure-name-1 io 
-TROUGH7—procedure-nane-2-1 


—THRU 


phrase 1 < 


=) phrase 1 [ ~umperative-statement—END-PERFORM 


phrase-1: 


—identifier-1 TIMES 
=| 7] 


'_integer-1 


PERFORM Statement - Format 3 


>>— PERFORM 


> a ag re TT phrase 2 < 
--THROUGH procedure-name-2 


Lturu 
phrase 2 [~tmperative-statement—END-PERFORM 
phrase 2: 
| | UNTIL—condition-1 
7 TEST BEFORE 
WITH _AFTER 


PERFORM Statement - Format 4 


>>— PERFORM > 

>——procedure-name-1 io i phrase 3 < 
en een anes 
'_THRU 

= phrase 3 [~tmperative-statement -1—END-PERFORM 
phrase 3: 
| | aan eae (poesia, ica Gl FROM > 
7 TEST BEFORE '_index-name-1 
WITH '_AFTER 
>——identifier-3 BY. identifier-4 UNTIL—condition-1 > 


t-index-name-2 literal-2 


_literal-1—— 


— 


a phrase 4 [- 


phrase 4: 


FROM——identifier-6 BY 


[-AFTER——identifier-5 


L-index-name-4 
_literal-3—— 


__index-name-3 
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oo 
literal-4 


>—UNTIL—condition-2 
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READ Statement 


READ - Format 1 - Sequential Retrieval/Access 


>>—READ—fi le-name | | 7 > 
NEXT: RECORD INTO—identifier-1 
>. > 
(1) (1) 
7 NO LOCK FORMAT. | identifier-2 
WITH IS literal-1 
>. > 
(1) | 
ee ——— ee ee 
IS 
> & 
(1) | 
eee — ieee evel 
LIS 
> > 
7 END inpenieivesseatensnbate) 
LAT 
> 
NOT. 7 END—imperative-statement-2 END-READ 
LAT 
Notes: 
1 IBM Extension. 
READ - Format 2 - Sequential Ret./Dynamic Access 
>>—READ—fi le-name NEXT. > 
(1) L_recorp— Linto—identifier-1_ 
FIRST 
(1) 
LAST 
(1) 
‘PRIOR 
> > 
(1) (1) 
7 NO LOCK FORMAT. | identifier-2 
WITH IS literal-1 
> b 


(1) 


] 


Ae — = lees f= ere 
IS 
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> 


(1) 


] 


EN ae 
LIS 


- 
END jinerahivestetenchta™) 


LaT— 


> >< 

NOT: a END inpergtive-statenentee | enp-reap_ 

__AT 
Notes: 
1 IBM Extension 
READ Statement - Format 3 - Random Retrieval 
>>—READ—file-name | 7 > 
RECORD INTO—identifier-1 
> > 
() (2) | 
NO LOCK. KEY data-name-1 

Lith List 

>- > 
(1) 
FORMAT | identifier-2 
IS literal-1 
> > 
(1) j 
el 
LIS 
> > 
(1) | 
eye ee eine 
LIS 

>- > 


INVALID: qi igerativectotmientet 
KEY 


"aris == eae Lane 
NOT INVALID— imperative-statement-2 END-READ 


vey 


Notes: 
1 IBM Extension 


2 Syntax-checked only. 
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IBM Extension | 


READ Statement - Format 4 - Transaction (Nonsubfile) 


>>—READ—file-name | > 
RECORD INTO—identifier-1— 
> > 
FORMAT. identifier-2 load identifter-3—] 
IS | literal-1—— Ist literal-2 
>. > 
INDICATOR identifier. NO DATA -Siherabiverstenenent.t_| 
L-INDICATORS IS 
INDIC ARE. 
> > 
END lapcnative-ttebenani=e-! 
LajT— 
>. >< 
NOT- 7 END: inperativecttatencersd-| L_enp-reap_l 
LAT 
READ - Format 5a - Transaction (Subfile Sequential) 
>>—READ cai sad Pr Raa > 
_NEXT. Lrecorn_ 
> b 
'_INTO—identifier-1 | FORMAT. | identi fier-2—- 
IS literal-1 
>. > 


—TERMINAL 


is 


identi fier-3—- 
literal-2 


“amie eee 0!U€!€~C~(“‘“‘C;éC‘“‘(‘(S(<“ ‘(‘“‘(C‘(‘(‘( ‘Cé‘ 
INDICATOR identifier-4 


t-INDICATORS IS 
INDIC ARE. 
>. > 
7 END inpeiiat werstdtenent-a! 

L_AT. 
> >< 

NOT. L 7 END inporative-stateneni<a | enp-reap_ 

AT. 

READ - Format 5b - Transaction (Subfile Random) 
>>—READ SUBFILE—file-name > 


RECORD | INTO idendifier-t— 
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FORMAT. | identi fier-2-| '_TERMINAL | identi fier-3—-| 
IS literal-1 IS literal-2 
L__tworcator identifierst) 
-inorcarors His 
INDIC ARE 


INVALID: a lieiat ive etetenentk 
KEY 


> 


> 


>< 


NOT INVALI og PE las rative-s ean | enp-reap— 
__KEY 


| End of IBM Extension 


RELEASE Statement 
RELEASE Statement - Format 


>>—RELEASE—record-name-1 


>< 


| FROM—identifier-1 


RETURN Statement 


RETURN Statement - Format 


>>—RETURN—file-name-1 


RECORD: | INTO bdentifier 1 


Pa cai ee eee > 
AT. 


NOT: 7 END—imperative-statement-2 END-RETURN 
AT. 


REWRITE Statement 
REWRITE Statement - Format 1 


>>—REWRITE—record-name-1 


FROM—identifier-1 


(1) 
FORMAT 


| identifier-2 
IS literal-1 
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> p 
(1) J 
ea 
LIS 
> 
(1) 
eee Tee ee 
LIS 
> > 
INVALID 7 imperalivesstattnentt 
KEY 
> 1 i >< 
NOT INVALID— imperative-statement-2 '_END-REWRITE 
Ley 
Notes: 
1 IBM Extension 
| IBM Extension 
REWRITE Statement - Format 2 - Transaction (Subfile) 
>>—REWRITE SUBFILE—record-name-1 > 


| FROM—identifier-1— 


> 
FORMAT. | ident ifier-2—— ‘TERMINAL identifier-3—] 
IS literal-1 IS literal-2 


> > 
INDICATOR identifierwe 
t-INDICATORS IS ; 
—INDIC ARE 
> > 
-INVALID————inperative-statenent-1— 
KEY 
>. >< 
NOT INVALID————inperative-statenent-2-) | eND-REWRITE— 
KEY 
| End of IBM Extension 
ROLLBACK Statement 
| IBM Extension 
ROLLBACK Statement - Format 
>>—ROLLBACK: >< 


Lo End of IBM Extension TT 
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ents 


SEARCH Statement 


SEARCH Statement - Format 1 - Serial Search 


p>>—SEARCH—identifier-1 


>—WHEN— 


>—— imperative-statement-2. 


NEXT SENT ENCE! 


equal phrase 1: 


|—data-name-1 
Lis 


equal phrase 2: 


| —data-name-2 


> 
LvaRvine—- ident ifier-2— 
index-name-1 
> 
7 END inperativessterenent A) 
L__AT. 
>——Y_-WHEN—condition-1——imperative-statement-2 > 
NEXT SENTENCE 
_Y_WHEN—condition-1—imperative-statement-2 7 
'_END-SEARCH 
SEARCH Statement - Format 2 - Binary Search 
>>—SEARCH ALL—identifier-1 7 > 
| ——tno—imperative-statenent=1 
AT 
equal phrase 1 | > 
'_condition-name-1 AND: equal phrase 2 
'_condition-name-2 
>< 
END-SEARCHH 
EQUAL | identifier-3 | 
TO | literal-1 
= arithmetic-expression-1— 
7 EQUAL | identifier-4 | 
TS TO | literal-2 
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arithmetic-expression-2— 


SET Statement 


SET Statement - Format 1 


Procedure Division Statements 


pp>—SET—Y eoteed 
'_identifier-1 


SET Statement - Format 2 


pp>—SET—Y index-name-3 


SET Statement - Format 3 


p>—SET—Y -Y mnemonic-name-1 


SET Statement - Format 4 


>e—SET—*-condition-name-1— 


TO index-name-2 >< 
L-identifier-2—- 
'_integer-]—— 
UP BY. | identifier-3 >< 
DOWN BY integer-2 
TO ON >< 
Lore 
—TQ TRUE >< 


SET Statement - Format 5 


IBM Extension 


p>—SET—*_identifier-4 


SET Statement - Format 6 


‘ADDRESS OF—identifier-5 


7 TO identifier-6 


NULL 


L-ADDRESS 0F—identifier-/7— 


NULLS 


>< 


pe—sS or ene r-data-i 7 ee 
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>—-T0—_procedure-pointer-data-item-2 >< 
ENTRY identifier-1 | Library Phrase 
itterci-t_! r 
Linkage Phrase = 
NULL. a 
NULLS 
Linkage Phrase: 
| | 
LINKAGE | | environment -name-1 
TYPE IS PROGRAM 
'_PROCEDURE 
PROGRAM 
'_PROCEDURE. 
Library Phrase: 
| | 
IN literal-2 
SET Statement - Format 7 
p>—SET— pointer-data-item UP BY. | identifier-8 >< 
DOWN BY integer-3——____—___ 
L_LENGTH OF—identifier-9— 
Set Statement - Format 8 
>>—SET—LOCALE—*——LC_ALL > 
t-LC_COLLATE—+ 
t-LC_CTYPE—— 
I-LC_MESSAGES— 
L-LC_MONETARY— 
L-LC_NUMERIC— 
LC_TIME 
LC_TOD 
> 


>. 
L iwro—identifier-19— ———____________] 
LIBRARY 
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identifier-11 


Procedure Division Statements 


>< 


FROM DEFAULT | 
L-identifier-12 


“ LIBRARY identifiert3_| 
'—IN 


“_mnemonic-name-2 


| End of IBM Extension 


SORT Statement 


SORT Statement - Format 


>>—SORT—fi me Tal ee dae > 
ON ‘DESCENDING KEY 


a oupL cares] 
WITH ‘IN ORDER 


SEQUENCE— Henabetnanee 
| contatine_ Lis 


>——USING—*-fi le-name-2 GIVING—* fi le-name-3 


>< 
| input procedure phrase H =] output procedure phrase = 


input procedure phrase: 


[INPUT ee el ee > 
LIS 


THROUGH procedaneonanesd: 
Lturu— 


output procedure phrase: 


[—OUTPUT ie 
IS 
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> 


—THRU 


START Statement 


START Statement - Format 


THROUGH oroceddivesianesé-| 


p>>—START—file-name-1 


NO LOCK 


() | 


Lith 


| fo. = ee 
KEY EQUAL data | 


Lis] Lt 
ar 2OCOC~StS 
THAN 
> 
I-NOT LESS 
LtHan 
NOT < 
GREATER OR EQUAL 
| tHanl Lt] 
i 
>. 
(1) (2) | 
FORMAT. | identifier-1— 
IS literal-1—— 
>. 
(1) 
a meme (a aa 
LIS 


INVALID: 7 innebative-statenent at! 
__KEY. 


KEY: 


data: 


[EXTERNALLY -DESCRIBED-KEY 


LY _data-name-1 


(1) 


NOT INVALI eal ive-s invenent=2) L_enp-start— 


>< 


Notes: 
1 IBM Extension 


2 Applies only to indexed files on DATABASE devices 
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STOP Statement 


STOP Statement - Format 


>>—STOP 


>< 


[ou 
literal 


STRING Statement 


STRING Statement - Format 


>>—STRING—*~— identi fier-1—+—— DELIMITED | identifier-2 
literal-1 BY literal -2——Y 
SIZE 


>—INT0—identifier-3 


Lwrtn 


POINTER identipiancel 


7 OVERFLOW—imperative-statement-1— 
'_ON 


>. >< 
NOT. | OVERFLOW—imperative-statement-2— | enp-sTRING— 
‘ON 
SUBTRACT Statement 
SUBTRACT Statement - Format 1 
>>—SUBTRACT—*—_— identi fier-1—_—_FROM—_ident i fier-2 7 > 
literal-1 ‘ROUNDED 
> > 
7 SIZE ERROR taperativestorenenet— 
'_ON 
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>. >< 
NOT. 7 SIZE ERROR: imperdtivesstatenent=2| L enp-suatract_ 
'_ON 
SUBTRACT Statement - Format 2 - GIVING 
p>—SUBTRACT—*—_—identifier-1 FROM identifier-2 > 
'literal-1 “literal-2 
>—GIVING—*-identifier-3 7 > 
‘ROUNDED: 
>. > 
7 SIZE ERROR imparat ivessiotencntt_ 
'_ON 
>. >< 
NOT. J SIZE ERROR—imperdtivesstatenent=2 | enp-suatract—! 
‘ON 
SUBTRACT Statement - Format 3 - CORRESPONDING 
OEE ere |, sa cenbnr dered aril tle ites 7 > 
CORR '_ROUNDED 
>. > 
7 SIZE ERROR imparativesstotenen tai 
'_ON 
>. >< 
NOT- 7 SIZE ERROR_imperdtevesstarenent 2) Lenp-suatract_ 
'_ON 
UNSTRING Statement 
UNSTRING Statement - Format 
>>—UNSTRING—identifier-1 > 
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> INTO > 
DELIMITED identifier-2 OR Phrase = 
BY | ALL | siete | yaad ia 
> identi fier-4— DELIMITER Phrase [4 COUNT Phrase > 
> a 


7 POINTER identifier-7— TALLYING —-—identifier-2-1 
WITH '—IN 


J] OVERFLOW—imperative-s intenent=1—| 
'_ON 


NOT: 7 OVERFLOW—imperative-statement-2— L eND-UNSTRING—| 
'_ON 


OR Phrase: 


Y_OR 


| identifier-3 
ALL literal-2 


DELIMITER Phrase: 


DELINITER——identi fier-5-1 
_IN 


COUNT Phrase: 


COUNT: 7 tdentifien-6! 
__IN 


WRITE Statement 
WRITE Statement - Format 1 - Sequential Files 


>>—WRITE—record-name-1 


| rRoM—identifier-1— 
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> > 
BEFORE | 7 identifier-2 | | 
AFTER ADVANCING '_integer-1 LINE 
‘LINES 
Lamnemonic-name-1 
PAGE 
> > 
(1) | 
a a 
LIS 
> > 
END-OF-PAGEy-inperative-statenent~1— 
AT: EOP. 
>- >< 
NOT. | END-OF-PAGE——inperative-statenent-2-1 | enp-werte 
AT EOP. 
Notes: 
1 IBM Extension. 
WRITE - Format 2 - Indexed and Relative Files 
>>—WRITE—record-name-1 5 > 
__FROM—identifier-1 
> > 
I () 
FORMAT identifier-2 
IS literal-1 
> > 
() | 
Se — Ia en 
LIS 
> > 
() | 
Nn —— ley re 
LIs 
> > 
INVALID: L 7 snporativestutenantal | 
KEY. 
> >< 


NOT iain A ea aaa ive-s ey a Lenp-werte— 
KEY 


Notes: 
1 IBM Extension 


80 ILE COBOL Reference Summary 
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IBM Extension 


WRITE Statement - Format 3 - FORMATFILE 


p>>—WRITE—record-name-1 7 > 
'-FROM—identifier-1 
> > 
FORMAT. | identifier-2 INDICATOR identifler-32 
IS litero]-2—— t-INDICATORS IS 
INDIC ARE— 
> > 
| END-OF-PAGE-/-inperative-statenent-1— 
AT. EOP. 
> >< 
NOT: | END-OF -PAGE-P-inperative-statenent-2- | eNp-write—| 
AT. EOP. 


WRITE - Format 4 - TRANSACTION (Nonsubfile) 


Ree eee Gee es CCC~C*~*~“‘“S*S*#*~«; 
FROM—identifier-1 


>—FORMAT | identifier-2 > 
IS literal-1 ‘TERMINAL | ident ifier-3—- 
IS literal-2 

> > 

'_STARTING | | identifier-4 Rolling Phrase = 

AT. LINE literal-3 
>. >< 
INDICATOR identifier-8_. | eND-WRITE—| 
L-INDICATORS IS 
INDIC ARE. 

Rolling Phrase: 
|-—-BEFORE ROLLING identifier-5 | > 

'_AFTER uines-] literal-4 THROUGH 

LINE THRU 

>——identifier-6 | UP. | identifier-7 | 

'literal-5 DOWN literal-6 Lunes 

_LINE 
WRITE Statement - Format 5 - TRANSACTION (Subfile) 
p>>—WRITE SUBFILE—record-name-1 7 > 
'-FROM—identifier-1 
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>—FORMAT. 


identifier-2 


> 
IS | literal-1 TERMINAL ———-identisfter-3-| 
IS 'literal-2 
L__tworcator identipiena) 
-inorcarors- His 
INDIC ARE 


INVALID: inpehdt ive-statenentt! 
KEY 


> 


>< 


NOT secon PP ls ive-s tareient-2 | enp-werte— 
KEY 


| End of IBM Extension 


Intrinsic Functions 


This is the general syntax for intrinsic functions. 


Function-Identifier 


Format 


>>—FUNCT 10N—function-name-1 


L(Y 1, 


>< 


heterancanodi len 


These following intrinsic functions are presented in alphabetical order. 


ACOS Function 


Format 


>>—FUNCTION ACOS—(argument-1) >< 


ADD-DURATION Function 


| IBM Extension 


Format 


>>—FUNCTION ADD-DURATION—(—argument -1—*—argument -2— argument -3 1_) —___»« 


Lo End of IBM Extension Td 
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Intrinsic Functions 
ASIN Function 


Format 


>>—FUNCTION ASIN—(argument-1) >< 


ATAN Function 
Format 


>>—FUNCTION ATAN—(argument-1) >< 


CHAR Function 
Format 


>>—FUNCTION CHAR—(argument-1) >< 


CONVERT-DATE-TIME Function 


| IBM Extension 


Format 
>>—FUNCTION CONVERT-DATE-TIME > 


>—(—argument-1—argument-2 | ) >< 
‘_argument-3 


—argumen 1-4 


Lo End of IBM Extension Td 
COS Function 


Format 


>>—FUNCTION COS—(argument-1) >< 


CURRENT-DATE Function 
Format 


>>—FUNCTION CURRENT-DATE >< 


Chapter 6. Procedure Division 83 


Intrinsic Functions 
DATE-OF-INTEGER Function 


Format 


>>—FUNCTION DATE-OF-INTEGER—(argument-1) >< 


DAY-OF-INTEGER Function 


Format 


>>—FUNCTION DAY-OF-INTEGER—(argument-1) >< 


DATE-TO-YYYYMMDD Function 


| IBM Extension 


Format 


>>—FUNCTION DATE-T0-YYYYMMDD— (argument -1 >< 


) 
| argunenece) 


| End of IBM Extension 


DAY-TO-YYYYDDD Function 


| IBM Extension 


Format 


>>—FUNCTION DAY-TO-YYYYDDD— (argument -1 pd 


) 
Peers a 


| End of IBM Extension 


EXTRACT-DATE-TIME Function 


| IBM Extension 


Format 


>>—FUNCTION EXTRACT-DATE-1 IME—(—argument -1—argument-2—) >< 


End of IBM Extension 
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FIND-DURATION Function 


| IBM Extension 


Format 


>>—FUNCTION FIND-DURATION—(—argument -1—argument -2—argument -3—-) ————————»>~« 


| End of IBM Extension 


INTEGER-OF-DATE Function 
Format 


>>—FUNCTION INTEGER-OF-DATE—(argument - 1) —_H¥_H#+¥+_________»< 


INTEGER-OF-DAY Function 


Format 


>>—FUNCTION INTEGER-OF-DAY—(argument-1) >< 


LENGTH Function 
Format 


>>—FUNCTION LENGTH—(argument-1) >< 


LOCALE-DATE Function 
———$————— IBM Extension _— ~~ 


>>—FUNCTION—LOCALE-DATE—(—argument-1 z ) >< 
‘“nnemonic-name-1 
| End of IBM Extension 
LOCALE-TIME Function 
| IBM Extension 
>>—FUNCTION—LOCALE-T IME—(—argument-1 ) >< 


L spanontesnamect 


End of IBM Extension 
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LOG Function 


Format 


>>—FUNCTION LOG—(argument-1) 


LOG10 Function 


Format 


>< 


>< 


>>—FUNCTION LOG10—(argument-1) 


LOWER-CASE Function 
Format 


>>—FUNCTION LOWER-CASE—(argument-1) 


MAX Function 


Format 


>< 


>>—FUNCTION MAX—(—‘—argument-1 


MEAN Function 


Format 


>>—FUNCTION MEAN—(—*-argument-1 


>< 


>< 


MEDIAN Function 


Format 


>>—FUNCTION MEDIAN—(—‘—argument-1 
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MIDRANGE Function 


Format 


v 


Intrinsic Functions 


>>—FUNCTION MIDRANGE—( argument-1 ) >< 
MIN Function 

Format 

>>—FUNCTION MIN—(—-argument-1 ) >< 
NUMVAL Function 

Format 

>>—FUNCTION NUMVAL—(argument-1) >< 

Argument-1 can have one of the following formats: 

>> | | digit | | >< 

space + space | space 
— digit 
digit 
>> 7 digit | | | >< 
space 7 space + space 
digit - 
digit CR 
Lpp 

NUMVAL-C Function 

Format 

>>—FUNCTION NUMVAL-C—(—argument-1 7 ) >< 

_argument -2. 

The format for argument-1 is one of the following two formats, where cs is the 

currency sign specified in argument-2: 

>> > 


space | 


space | 


cs] 


space | 
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>< 


space | 


>——digit | 
| | gigit_ 


Y_,—digit 


digit 


‘Space | | cS | Space | 


space | 


>——digit | 
| Laigie-) 


Y_.—digit 


digit 


ORD Function 


Format 


LppH 


space | 


>>—FUNCTION ORD—(argument-1) 


ORD-MAX Function 


Format 


>>—FUNCTION ORD-MAX—(—*—argument-1 ) 


>< 


ORD-MIN Function 


Format 


>>—FUNCTION ORD-MIN—(—*—argument-1 ) 


>< 


PRESENT-VALUE Function 


Format 


>>—FUNCTION PRESENT-VALUE—(—argument -1—*—-argument -2 


>< 


RANGE Function 


Format 
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>>—FUNCTION RANGE—(—*—argument-1 


REVERSE Function 
Format 


>>—FUNCTION REVERSE—(argument-1) 


Intrinsic Functions 


>< 


SIN Function 
Format 


>>—FUNCTION SIN—(argument-1) 


>< 


SQRT Function 
Format 


>>—FUNCTION SQRT—(argument-1) 


>< 


STANDARD-DEVIATION Function 


Format 


>>—FUNCTION STANDARD-DEVIATION—( 


Y argument -1 ) >< 


SUBTRACT-DURATION Function 


Format 


IBM Extension 


>>—FUNCTION SUBTRACT-DURATION—(—argument-1—*—argument -2—argument -3__) ——_»« 


| End of IBM Extension 


SUM Function 


Format 


>>—FUNCTION SUM—(—“-argument-1 
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90 


TAN Function 


Format 


>< 


>>—FUNCTION TAN—(argument-1) 


TEST-DATE-TIME Function 


Format 


>>—FUNCTION TEST-DATE-TIME 


IBM Extension 


> 


i = 
argument -2 


UPPER-CASE Function 
Format 


>>—FUNCTION UPPER-CASE—(argum 


UTF8STRING Function 
Format 


>>—FUNCTION UTF8STRING—(argum 


VARIANCE Function 


Format 


>>—FUNCTION VARIANCE—(—‘-arg 


WHEN-COMPILED Function 
Format 


>>—FUNCTION WHEN-COMPILED 


‘_argument -3 


End of IBM Extension 


ent-1) 


eee a 


>< 


ent-1) 


>< 


>< 


ument-1 ) 


>< 


ILE COBOL Reference Summary 


Intrinsic Functions 


YEAR-TO-YYYY Function 


| IBM Extension 


Format 


>>—FUNCTION YEAR-T0-YYYY—(argumen a 
argument-2 


End of IBM Extension 
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Chapter 7. Conditional Expressions 


Class Condition - Format 


Se eee a i 
IS NOT ALPHABETIC 


t-ALPHABETIC-LOWER— 
}-ALPHABET IC-UPPER— 
(1) 


(1) 
KANJI 
'-class-name 


DBCS 


Notes: 
1 IBM Extension 


Condition-Name Condition - Format 


>>—condition-name >< 


Relation Condition - Format 


>>—operand-1 GREATER > 
Lis] (1) L_ tHan 
NOT: > 
LESS 
L_tHan 
<. 
EQUAL 
to] 
GREATER OR EQUAL 
| tHan L to 
— 
LESS OR EQUAL 
Ltn Lt 
—<— 
>—operand-2 >< 
Notes: 


1 NOT GREATER THAN OR EQUAL TO, 
NOT >=, NOT LESS THAN OR EQUAL TO, and NOT <=, are 
IBM Extensions. 


| IBM Extension 


The following two syntax diagrams apply to pointer data items and 
procedure-pointer data items, respectively. 
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ADDRESS Comparison - Format 


>>— ADDRESS O0F—identifier-1 
—identifier-2 
NULL 


> 


NULLS 


>——ADDRESS OF—identifier-3 
t-identifier-4 

NULL 

NULLS 


el ag ad 


Procedure-Pointer Comparison - Format 


<4 


NULL 


End of IBM Extension 


Sign Condition - Format 


>>—operand-1 


>>——identifier-1 EQUAL 
tut Lis Lyor Ly | 
5 = 


identifier-2 < 
a 
NULLS 


Switch-Status Condition - Format 


>>—condition-name 


Negated Simple Condition - Format 


>>—NOT—simple-condition 


Combined Conditions - Format 


»>>—condition-1—*——AND condition-2 


'—OR 


Abbreviated Combined Relation Conditions - Format 


>>—relation-condition 


| | POSITIVE >< 
IS NOT. NEGATIVE 
'—ZERO—— 

>< 

>< 

pd 
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>—Y__AND | | object >< 
OR IS (1) GREATER: zi 
L_NOT- -_THAN 
>. 
LESS. 
| tHan 
< 
EQUAL. 
L_ to] 


greater or equal 4 


>= 


less or equal = 


< 


greater or equal: 


|--GREATER— OR EQUAL | 
Lan! Lio 


less or equal: 

L—LESS OR EQUAL | 
tan Lo 

Notes: 


1 NOT GREATER THAN OR EQUAL TO, 
NOT >=, NOT LESS THAN OR EQUAL TO, and NOT <=, are 
IBM Extensions. 


Chapter 7. Conditional Expressions 95 


96 ILE COBOL Reference Summary 


Chapter 8. Qualifying Data Reference Formats 


Format 1 - Identifier 


>>—data-name-1—~ > 


a data-name-2 | | Hs nanact| 
OF. '_OF. 
> >< 
__(—leftmost-character-position: ) | 
enone) 
_(—* subscript——) 
Format 2 - LINAGE-COUNTER 
>>—LINAGE-COUNTER 7 >< 
| -file-name-2 
'_OF 
Format 3 - condition-name 
>>—condition-name-1—* | 7 > 
| data-name-1 | -file-name-1 
'_OF \_OF- 
> >< 


L(Y 1, 


Qualification 


References to Data Division Names - Format 1 


>>——data-name-1 | z >< 


| data-name-2 | IN Fiennes) 
OF Lor 


'-condition-name 


References to Data Division Names - Format 2 
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>>—LINAGE-COUNTER 


>< 


IN filesnoneco| 
Lord 


References to Procedure Division Names - Format 1 


>>—paragraph-name < 
Lin seater nate 
OF- 


References to Procedure Division Names - Format 2 


>p—section-name >< 
References to COPY Libraries - Format 3 
>>—text-name >< 
L 0) | 
library-name- -file-name 

Han] 

_OF 
Notes: 
1 Required hyphen between library-name-file-name to qualify 

Reference Modification 
Format 
>>——data-name-1 > 
‘-FUNCT10N—function-name-1 | 
L(Y 1, 

>—(—leftmost-character-position: ) >< 


| Fengeh 


Subscripting 
Subscripting - Format 
sc see als ad 7 
data-name-1 LN detananes2! Lari le-name-1 
OF OF 
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>( 


—integer-1 ) >< 
ALL 
t-data-name-3 7 
L-+-integer-2 
'_index-name-1 7 
a a ac 
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Chapter 9. Compiler-Directing Statements 


CONTROL Statement 


| IBM Extension 


*CONTROL (*CBL) Statement - Format 


>> *CONTROL Y___SOURCE 
L «ca. t-NOSOURCE——4 
(1) 

LIST 

(1) 

NOLIST. 

(1) 

MAP. 

(1) 

L_NOMAP. 


Notes: 


1 Syntax-checked only. 


Ed 


>< 


ee End of IBM Extension Td 


COPY Statement 
COPY Statement - Format 1 


>>—COPY—text-name 


ae Fienane 
LIN (1) 
_library-name- 
> >< 
(2) REPLACING— phrase = 
L-SUPPRESS 
Notes: 
1 Required hyphen between library-name-file-name to qualify. 
2 IBM Extension 
REPLACING Phrase - Format 
>>—REPLACING—*——==pseudo-text-1== BY. ==pseudo-text-2== >< 
L-identifier-1 identifier-2 
t-Literal-1 literal-2 
word-1 word-2. 
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IBM Extension 


COPY Statement - Format 2 - DDS Translate 


»>>—COPY——_DD- format -name 


OF 


DD-ALL-FORMATS 
+-DDR- format -name 


of 
-0 


- INDICATOR IN 
- INDICATORS 


--DDR-ALL-FORMATS 


-1-0 


-INDIC 


t-DDS - format -name— 
t-DDS-ALL-FORMATS— 
DDSR- format -name— 
DDSR-ALL-FORMATS— 


> -file-name 


(1) 


_library-name- 


Lith 


> 


I-FIELDS 


-—-0-FIELDS—+ 
'_T-0-FIELDS— 
INDICATOR 


t-INDICATORS— 
'_INDIC 
--NULL-MAP: 


--NULL-MAP-ALPHANUM 
L-NULL-KEY -MAP. 


[-PREF 1X—BY—1iteral———___ 


ALIAS 


ml SUBSTITUTE Phrase = 
VL 


suppREss— —REPLACING—} phrase = 


SUBSTITUTE Phrase: 


| SUBSTITUTE 


| ALL 


Lexcept—1 i tanatea.! 


Notes: 


1 Required hyphen between library-name-file-name to qualify. 


End of IBM Extension 


>< 


Copy Statement - Format 3 - Basic IFS 
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>>—COPY—_text-name | 


_literal-1 


OF | Library-nane—-| (1) 
IN literal-2 ‘SUPPRESS. 


> >< 
LREPLACING— phrase H 

Notes: 

1 IBM Extension 
EJECT Statement 

| IBM Extension 

EJECT Statement - Format 

p>>—EJECT >< 

Lil 

| End of IBM Extension 
REPLACE Statement 

REPLACE Statement - Format 1 

>>—REPLACE—*-==pseudo-text-1==—BY—==pseudo-text-2== >< 

REPLACE Statement - Format 2 

>>—REPLACE—OFF- >< 
SKIP Statement 

| IBM Extension 

SKIP1/2/3 Statements - Format 

>> SKIP1 | >< 

SKIP2 
_SKIP3— 
End of IBM Extension 
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TITLE Statement 


| IBM Extension 


TITLE Statement - Format 


>>—TITLE—literal | >< 


| End of IBM Extension 


USE Statement 


USE Statement - Format 


si a or et a a Pe 
GLOBAL STANDARD: ERROR ON 


>—— file-name-1 >< 
INPUT 
OUTPUT: 
1-0 
EXTEND: 


USE FOR DEBUGGING Declarative - Format 


(1) 
>>—USE DEBUGGING > 
| ror Lon 


> | identifier-1 >< 
ALL 


'-REFERENCES orl 
L-file-name-1 
L-procedure-name-1 
ALL PROCEDURES 


Notes: 
1 Syntax-checked only. 
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Chapter 10. Symbols, Names, and Figurative Constants 


Symbol 
Meaning 
A Alphabetic character or space 
B Space insertion character 
P Decimal scaling position (not counted in size of data item) 
S Operational sign (not counted in size of data item unless a SIGN clause 


with optional SEPARATE CHARACTER phrase is specified) 
Vv Assumed decimal point (not counted in size of data item) 
x Alphanumeric character (any from the EBCDIC set) 
Z Zero suppression character 
9 Numeric character 


IBM Extension 


1 Boolean character 


End of IBM Extension 


IBM Extension 
E Floating-point data 
End of IBM Extension 


IBM Extension 


G DBCS character 


End of IBM Extension 


IBM Extension 


N DBCS character 


End of IBM Extension 


Zero insertion character 


/ Slash insertion character 
j Comma insertion character 

Decimal point or period editing control character 
+ Plus sign insertion editing control character 


- Minus sign editing control character 

CR Credit editing control character 

DB Debit editing control character 

$ Currency symbol insertion character ($ is default). 


Assignment-Names in the ASSIGN Clause 


Format 


p>>—device— —file—name [- >< 
=auenaiees! 
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device: PRINTER 
FORMATFILE 
TAPEFILE 
DISKETTE 
DISK 
DATABASE 


WORKSTATION 


file-name: 1-10 character name 


attribute: SI (separate indicator area) 
(allow null fields) 


Environment-Names in the SPECIAL-NAMES Paragraph 


106 


Table 1. Choices of Environment-Name-1 and 


Action Taken 


Environment-name-1 


Usage 


CONSOLE, SYSTEM-CONSOLE 


Communicate with the system operator’s 
message queue (QSYSOPR). 


REQUESTOR Communicate with the user work station 
(interactive jobs) or the batch input stream 
or job log (batch jobs). 

CSP Suppress spacing when printing a line. Use 
only when PRINTER is the device. 

Co1 Skip to the next page. Use only when 


PRINTER is the device. 


OPEN-FEEDBACK 


Give information about a file, but only when 
the file is open. 


I-O-FEEDBACK 


Give information about the last I-O 
operation on a file, but only when the file is 
open. 


DATA-AREA 


Retrieves or updates an AS/400 data area. 


ATTRIBUTE-DATA 


Retrieve attribute data about a program 
device acquired by a transaction file, but 
only when the file is open. 


LOCAL-DATA 


Retrieve data from, or move data to the local 
data area created by the system for every 
job. 


PIP-DATA 


Retrieve data from the Program Initialization 
Parameters (PIP) data area for programs 
running as part of a prestart job. 


SYSIN 


SYSOUT 


The equivalent of REQUESTOR (for the 
ACCEPT statement only) 


The equivalent of REQUESTOR (for the 
DISPLAY statement only) 


Table 2. Choices of Environment-Name-2 and 


Action Taken 


Environment-name-2 


Usage 


UPSI-0 through UPSI-7 


Program switches associated with 
condition-names 


SYSTEM-SHUTDOWN 


Internal switches associated with 
condition-names 
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Figurative Constants 


The following figurative constants can be used: 
ALL "literal” 
HIGH-VALUE 
HIGH-VALUES 
LOW-VALUE 
LOW-VALUES 


| IBM Extension 


NULL 
NULLS 


| End of IBM Extension | 


QUOTE 
QUOTES 
SPACE 
SPACES 
ZERO 
ZEROES 
ZEROS 
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Chapter 11. File Structure Support Summary and Status Key 


Values 


File Structure Support Tables 


Table 3} lists the required and optional entries for various types of file structures 
supported. Any file with a device type of disk can be assigned to a database or 
non-database auxiliary storage file. The codes used are as follows: 


~~ nnWnAonr fs 


Not applicable 
Optional for a work station that supports subfiles 
Optional entry, treated as comments only 


Optional for file assigned to DATABASE-, not allowed if not assigned to a 
database file 


Optional for a file opened for input or input-output 
Optional for a file opened for input-output 
Optional 

Required 

Required for a work station that supports subfiles 


Required; syntax checked, but treated as documentation 


Table 4 on page 113}and|Table 5 on page 114} contain status key values and their 


meanings. 


Table 3. File Structure Support 


Device Type a 
3 oS 
ae} sS ¢ c 
ion =| ise z CI > 
wo Qa yn a4 Q < 2 
s |o Is |s IA |B IS zi, |E 
Vu 
sig ie |l# |¥ l% 4 l¥ /# [Eo le IE 
aH je |A |A jA [A JA jA [A |s {46 [fk 
Environment Division 
RERUN...RECORDS cy (Ee. [Ge le re | |e Ge rer re Fe es |e 
SAME oO 10 10 JO JO }O {}O |}O JO JO JO JO 
AREA Cc ic |}@ jC ye jC Ee ve 1c }e JE |e 
RECORD AREA oO 10 10 JO JO }O }O |O JO JO JO JO 
SORT AREA C IC 
SORT MERGE AREA Co Nic 
MULTIPLE FILE TAPE C 
COMMITMENT CONTROL D ID JD |D |D |D |D 
SELECT R /JR JR JR |R |{R {R [R JR JR JR IR 
ASSIGN R /JR JR JR |R |{R JR [R |[R JR JR IR 
OPTIONAL I I I I . 
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Table 3. File Structure Support (continued) 


Device Type : ¥ g | 
3 |S Zig 
— la la [x [x fx | 8 rs 
| lg 2 le 2 {8 8 l8 2 lg |e 
| |e (2 |% jf [3 2 |2 (3 le |E 
& |— |A jA ja /A [A |A JA |= [6 |é 
ORGANIZATION Oo }O JO JR {R JR JR |R JR JR JO JO 
SEQUENTIAL O |O JO O |O 
RELATIVE R /|R [R 
INDEXED R /|R [R 
TRANSACTION R 
ACCESS Oo |O |O |O |R JR JO JR JR JO JO JO 
SEQUENTIAL oO |O JO JO O oO |O JO 
RANDOM R R 
DYNAMIC R R |S 
RESERVE C |C JC Je JC JC Je JC JC C IC 
RELATIVE KEY O |R JR S 
RECORD KEY R /|R [R 
DUPLICATES D |D |D 
FILE STATUS oO |/O0 JO jO |O JO JO JO |O JO JO JO 
CONTROL-AREA O 
Data Division 
LABEL RECORDS X |R |X |X |X |X |X |X |X |X |X |X 
STANDARD O |R JR |R JR JR [R |[R JO |R IR 
OMITTED R |O O 
VALUE OF C |C JC JC JC Je Je je Je Je Je Je 
BLOCK CONTAINS oO 1/0 JO jO |O JO JO JO |O JO JO JO 
RECORD CONTAINS Oo |}O0 JO jO |O JO JO JO |O JO JO JO 
DATA RECORDS oO 1/0 JO jO |O JO JO JO |O JO JO JO 
CODE-SET O O 
LINAGE O 
Procedure Division 
OPEN R /R |R JR JR J|R {|R {|R JR JR JR IR 
INPUT Oo |/O0 JO J}O |O |O JO JO O 
OUTPUT R |O JO {O |O |O JO JO |O O |O 
LO Oo |}O JO JO |O |}O JO {IR 
NO REWIND I 
REVERSED I 
EXTEND O |O O 
CLOSE R /|R |R JR |R JR J{|R {|R JR JR JR IR 
REEL/UNIT O 
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Table 3. File Structure Support (continued) 


File Structure Support Summary 


Device Type 


Printer 

DiskSeq 

Disk Rel Seq 
Disk Rel Random 
Disk Rel Dynamic 
Disk IDX Seq 
Disk IDX Random 
Disk IDX Dynamic 
Workstation 
Diskette 


Format File 


REMOVAL 


NO REWIND 


NO REWIND 


WITH LOCK 


READ 


™|]O}O}|O] OO} Tape 


= 
= 
= 
= 
= 
= 
= 
= 


NEXT 


FIRST 
LAST 


PRIOR 
INTO 


wae a ee eee ee ce 


WITH NO LOCK 


KEY IS 


AT END 


NOT AT END 


INVALID KEY 


NOT INVALID KEY 


4 
foe ee 


H 
ee ee 
fo) 


FORMAT 


Slolole| 


NULL-KEY-MAP 


NULL-MAP 


u 
U;O;o 
U;O;o 


NEXT MODIFIED 


SUBFILE 


INDICATORS 


TERMINAL 


NO DATA 


WRITE 


FROM 


INVALID KEY 


NOT INVALID KEY 


DIWDI/O!LOJ/O!LOl|A/A/a 


O;O}O0;O0 
O;O}O;O 
O;O};0;O0 
O;O};O;O0 
O;O}O;O 
O;O};O;O 


ADVANCING 


e) 


AT END-OF-PAGE 


e) 


NOT AT END-OF-PAGE 


FORMAT 
NULL-KEY-MAP 


u 
u 
u 


NULL-MAP 
STARTING 


O 
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File Structure Support Summary 


Table 3. File Structure Support (continued) 


Device Type 


Printer 

Tape 

DiskSeq 

Disk Rel Seq 
Disk Rel Random 
Disk Rel Dynamic 
Disk IDX Seq 
Disk IDX Random 
Disk IDX Dynamic 
Diskette 

Format File 


ROLLING 


INDICATORS 


SUBFILE 


O}|2|O} OO} Workstation 


TERMINAL 


START 


KEY 


INVALID KEY 
NOT INVALID KEY 


O;O};O;0 
O;O};O;0 


FORMAT 
NULL-KEY-MAP 


REWRITE : : O |O 


O;/O;ULTGIO};O;O/;O 


FROM ‘ ; O |O 


INVALID KEY 


O;O};O]|O 
O;O};O]0O 


NOT INVALID KEY 


Dl) Wl wi wl 


FORMAT 


NULL-KEY-MAP : : : : : : D 


UJ/OIGDSO;SO;/O;O;UIU;SO;O};O];oO 


UPD GSO; Os;OJ;O;oUTy 


NULL-MAP ; : D |D JD |D |D 


INDICATORS 


ep) 


SUBFILE 


TERMINAL 


DELETE ‘ ; : O |O JO |O 


NULL-KEY-MAP : , . ; : ; D 


INVALID KEY ‘ : ‘ ; O |O 


NOT INVALID KEY ‘ ; : ‘ O |O 


FORMAT 


USE O |O 


EXCEPTION/ERROR O |O 


FOR DEBUGGING O |O 


COMMIT 


UJD/O;O;JO;GSO;O};O};O 
DJG O;O;SO;G}O;/O};O;O 


UyG;O};O};Oo 
UyG;O};O};O 
UG; O};O};O 
UG; O};O};O 
UPD; O};O};Oo 


ROLLBACK 


ACQUIRE : : : : : : : ; : O 


DROP : ; : : ‘ ‘ : : : O 


Return codes are set by the system after transaction I-O, which involves ICF files 
or DISPLAY files. 
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File Structure Support Summary 


For more information about return codes, see the WebSphere Development Studio: ILE 
COBOL Programmer's Guide. 


Table 4. File Status Keys and Corresponding Return Codes 


File Status | Major Minor Return Code Explanation 
Key Return 
Code 
00 00 Xx Normal completion (operation was successful). 
03 xx except 09) No data received. 
08 00 Acquire operation attempted to acquire an already 
active session or device. 
09 00 File has been dynamically created for OPEN OUTPUT. 
(See the OPTION(*CRTF) parameter description 
on the CRTCBLMOD command in the 
WebSphere Development Studio: ILE COBOL Programmer's Guid 
for further information about dynamic file creation.) 
0A 02 Xx Job being cancelled (controlled). 
03 09 
10 11 00 Read-from-invited-program-device rejected; no invites 
outstanding. 
30 80 Xx Permanent system error. The session has been ended. 
92 81 XX Permanent device or session error. 
9C 82 Xx Open or acquire failed; session was not started. 
9G 34 Xx Output exception to device or session. 
91 04 Xx Output exception to device or session. 
9K 83 EO Format not found. 
ON 83 xx (except EO) Session error. Session is still active. 
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File Status Key Values 


File Status Key Values and Meanings 


For information about error handling, refer to the “Error and Exception Handling” 
section in the WebSphere Development Studio: ILE COBOL Programmer's Guide. 


Table 5. File Status Key Values 


High Meaning Low Meaning 


Order Order 

Digit Digit 

0 Successful 0 Nofurther information 

Completion 2 The READ statement was successfully executed, but a 

duplicate key was detected. That is, the key value for 
the current key of reference was equal to the value of 
the key in the next record. For information about 
enabling file status 02 see the accompanying notes 
under the READ statement. 

4 An attempt was made to read a record that is larger 
than the largest, or smaller than the smallest record 
allowed by the RECORD IS VARYING clause of the 
associated file-name. 

5 An OPEN statement is successfully executed, but the 


referenced optional file is not present at the time the 
OPEN statement is executed. If the open mode is I-O or 
EXTEND, the file has been created. CPF4101, CPF4102, 
CPF4103, CPF4207, CPF9812. 


7 For a CLOSE statement with the NO REWIND, 
REEL/UNIT, or FOR REMOVAL phrase or for an OPEN 
statement with the NO REWIND phrase, the referenced 
file was on a non-reel/unit medium. 


A Job ended in a controlled manner by CL command 
ENDJOB, PWRDWNSYS, ENDSYS, or ENDSBS 
CPF4741. Escape message sent during an accept input 
operation, READ from invited program device (multiple 
device listings only). 


M Last record written to a subfile. CPF5003 


P The file has been opened successfully, but it contains 
null-capable fields and the ASSIGN clause does not 
specify ALWNULL and device-type DATABASE. 


(@) A CLOSE statement for a sequentially-processed relative 
file was successfully executed. The file was created with 
the *INZDLT and *NOMAX options, so its boundary 
has been set to the number of records written. 
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File Status Key Values 


Table 5. File Status Key Values (continued) 


High 
Order 
Digit 


Meaning 


Low 
Order 
Digit 


Meaning 


1 


At end 
conditions 


0 


A sequential READ statement was attempted and no 
next logical record existed in the file because the end of 
the file had been reached (no invites outstanding) 
CPF4740, CPF5001, CPF5025. 


| IBM Extension | 


No modified subfile record found. CPF5037 


[ End of IBM Extension | 


A sequential READ statement was attempted for a 
relative file and the number of significant digits in the 
relative record number was larger than the size of the 
relative key data item described for the file. 


Invalid key 


A sequence error exists for a sequentially accessed 
indexed file. The prime record key value has been 
changed by the program between the successful 
execution of a READ statement and the execution of the 
next REWRITE statement for that file, or the ascending 
requirements for successive record key values were 
violated. 


Alternatively, the program has changed the record key 
value between a successful READ and subsequent 
REWRITE or DELETE operation on a randomly or 
dynamically-accessed file with duplicate keys. 


An attempt was made to write a record that would 
create a duplicate key in a relative file; or an attempt 
was made to write or rewrite a record that would create 
a duplicate prime record key in an indexed file. 
CPF4759, CPF5008, CPF5026, CPF5034, CPF5084, 
CPF5085. 


An attempt was made to randomly access a record that 
does not exist in the file. CPF5001, CPF5006, CPF5013, 
CPF5020, CPF5025. 


An attempt was made to write beyond the externally 
defined boundaries of a relative or indexed file. Or, a 
sequential WRITE statement was attempted for a 
relative file and the number of significant digits in the 
relative record number was larger than the size of the 
relative record key data item described for the file. 
CPF5006, CPF5018, CPF5021, CPF5043, CPF5272. 
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Table 5. File Status Key Values (continued) 


High 
Order 
Digit 


Meaning 


Low 
Order 
Digit 


Meaning 


3 


Permanent 
error 
condition 


0 


No further information CPF4192, CPF5101, CPF5102, 
CPF5129, CPF5030, CPF5143. 


A permanent error exists because of a boundary 
violation; an attempt was made to write beyond the 
externally-defined boundaries of a sequential file. 
CPF5116, CPF5018, CPF5272 if organization is 
sequential. 


An OPEN statement with the INPUT, I-O, or EXTEND 
phrase was attempted on a non-optional file that was 
not present. CPF4101, CPF4102, CPF4103, CPF4207, 
CPF9812. 


An OPEN statement was attempted on a file that would 
not support the open mode specified in the OPEN 
statement. Possible violations are: 


¢ The EXTEND or OUTPUT phrase was specified but 
the file would not support write operations. 


¢ The I-O phrase was specified but the file would not 
support the input and output operations permitted. 

° The INPUT phrase was specified but the file would 
not support read operations. 


CPF4194. 


An OPEN statement was attempted on a file previously 
closed with lock. 


The OPEN statement was unsuccessful because a 
conflict was detected between the fixed file attributes 
and the attributes specified for that file in the program. 
The minimum record length specified by the program is 
less than the minimum record length required for the 
file. Level check error. CPF4131. 
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Table 5. File Status Key Values (continued) 


High 
Order 
Digit 


Meaning 


Low 
Order 
Digit 


Meaning 


4 


Logic error 
condition 


1 


An OPEN statement was attempted for a file in the 
open mode. 


A CLOSE statement was attempted for a file that was 
already closed. 


For a sequential file in the sequential access mode, the 
last input-output statement executed for the associated 
file prior to the execution of a REWRITE statement was 
not a successfully executed READ statement. For 
relative and indexed files in the sequential access mode, 
the last input-output statement executed for the file 
prior to the execution of a DELETE or REWRITE 
statement was not a successfully executed READ 
statement. 


A boundary violation exists because an attempt was 
made to rewrite a record to a file and the record was 
not the same size as the record being replaced. An 
attempt was made to write or rewrite a record that is 
larger than the largest, or smaller than the smallest 
record allowed by the RECORD IS VARYING clause of 
the associated file-name. 


A sequential READ, READ NEXT or READ PRIOR 
statement was attempted on a file open in the input or 
I-O mode and no valid next record had been established 
because the preceding START statement was 
unsuccessful, or the preceding READ statement was 
unsuccessful or caused an at end condition. CPF5001, 
CPF5025, CPF5183. 


The execution of a READ or START statement was 
attempted on a file not open in the input or I-O mode. 


The execution of a WRITE statement was attempted on 
a sequential file not open in the output, or extend mode. 
The execution of a WRITE statement was attempted on 
an indexed or relative file not open in the I-O, output, 
or extend mode. 


The execution of a DELETE or REWRITE statement was 
attempted on a file not open in the I-O mode. 
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Table 5. File Status Key Values (continued) 


High 
Order 
Digit 


Meaning 


Low 
Order 
Digit 


Meaning 


9 


Other errors 


0 


Other errors: 

¢ File not found 

¢ Member not found 

* Unexpected I-O exceptions 


CPF4101, CPF4102, CPF4103 if a USE is applicable for 
the file (on OPEN OUTPUT, non-optional file). The 
following exceptions are monitored generically: 

* CPF4101 through CPF4399 

° CPF4501 through CPF4699 

° CPF4701 through CPF4899 

¢ CPF5001 through CPF5099 

* CPF5101 through CPF5399 

* CPF5501 through CPF5699 


These exceptions are caught, and FILE STATUS is set to 
90. 


Undefined or unauthorized access type CPF2207, 
CPF4104, CPF4236, CPF4238, CPF5057, CPF5109, 
CPF5134, CPF5279. 


Logic error: 

¢ File locked 

° File already open 

* JI-O to closed file 

¢ READ after end of file 

* CLOSE on unopened file 


CPF4106, CPF4132, CPF4740, CPF5067, CPF5070, 
CPF5119, CPF5145, CPF5146, CPF5149, CPF5176, 
CPF5209. 


No file position indicator REWRITE/DELETE when not 
sequential access, and last operation was not a 
successful READ. 


Other errors 


Invalid or incomplete file information (1) Duplicate keys 
specified in COBOL program. The file has been 
successfully opened, but indexed database file created 
with unique key; or (2) Duplicate keys not specified in 
COBOL program, and indexed database file created 
allowing duplicate keys. 


Undefined (display or ICF). 


Acquire failed; session was not started. 


Record is locked CPF5027, CPF5032. 


Output exception to device or session. 


TIQ;/O;a;s 


ACQUIRE operation failed. Resource owned by another 
program, or unavailable. (9H is the result when an 
ACQUIRE operation causes any of the OS/400 
exceptions monitored for 90, or 9N to occur.) 


WRITE operation failed CPF4702, CPF4737, CPF5052, 
CPF5076. 


Invalid format-name; format not found. CPF5022, 
CPF5023, CPF5053, CPF5054, CPF5121, CPF5152, 
CPF5153, CPF5186, CPF5187. 
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Table 5. File Status Key Values (continued) 


High 
Order 
Digit 


Meaning 


Low 
Order 
Digit 


Meaning 


9 


Other errors 


N 


Temporary (potentially recoverable) hardware I-O error. 
(Error during communication session.) CPF4145, 
CPF4146, CPF4193, CPF4229, CPF4291, CPF4299, 
CPF4354, CPF4526, CPF4542, CPF4577, CPF4592, 
CPF4602, CPF4603, CPF4611, CPF4612, CPF4616, 
CPF4617, CPF4622, CPF4623, CPF4624, CPF4625, 
CPF4628, CPF4629, CPF4630, CPF4631, CPF4632, 
CPF4705, CPF5013, CPF5107, CPF5128, CPF5166, 
CPF5198, CPF5280, CPF5282, CPF5287, CPF5293, 
CPF5352, CPF5353, CPF5517, CPF5524, CPF5529, 
CPF5530, CPF5532, CPF5533. 


OPEN failed because file cannot be placed under 
commitment control CPF4293, CPF4326, CPF4327, 
CPF4328, CPF4329. 


An OPEN statement for a randomly- or 
dynamically-accessed relative file failed because its size 
was *NOMAX. Change the file size (for example, using 
CHGPF) to the size you expect, and submit the program 
again. 


Referential integrity error. CPF502D, CPF502E, 
CPF503A. 


REWRITE or DELETE failed because last READ 
operation specified NO LOCK. 


ca 


Trigger program exception. CPF502B 


Cannot complete READ PRIOR because records are left 
in block from READ NEXT, or vice versa. CPF5184. 


Close the file, then open it again. 


Check constraint exception. CPF502F. 


OPEN failed because the file type is not supported in a 
multithreaded job. Change the file type to DATABASE, 
PRINTER (spool file only), or a DDM file of type *IP 
and submit the program again. CPF4380. 


OPEN failed because the auxiliary storage pool (ASP) 
device where the file is located is not available. 
CPF980B. 
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Chapter 12. ILE COBOL Function-Name and Context-Sensitive 


Word List 


The following sections list all of the context-sensitive words and function-names in 


ILE COBOL. 


Visual Key 


The following key identifies the function-names and context-sensitive words in the 


ILE COBOL language: 


Blank An ILE COBOL function-name or context-sensitive word from Standard 


COBOL. 


(1) An ILE COBOL function-name or context-sensitive word that is an IBM 
extension to Standard COBOL. 


(2) A COBOL function-name from the 1985 (revised 1989) ANSI Standard that 
is not used by the ILE COBOL compiler. 


Function-Names 


Function-Name 

ACOS 

ASIN 
CONVERT-DATE-TIME (1) 
DATE-OF-INTEGER 
DAY-TO-YYYYDDD (1) 
FIND-DURATION (1) 
INTEGER-OF-DAY 
LOCALE-DATE (1) 
LOG10 

MEAN 

MIN 

NUMVAL-C 

ORD-MIN 

RANGE 

SIN 
SUBTRACT-DURATION (1) 
TEST-DATE-TIME (1) 
VARIANCE 


Function-Name 
ADD-DURATION (1) 
ATAN 

COS 
DATE-TO-YYYYMMDD (1) 
EXTRACT-DATE-TIME (1) 
INTEGER (2) 
INTEGER-PART (2) 
LOCALE-TIME (1) 
LOWER-CASE 

MEDIAN 

MOD (2) 

ORD 

PRESENT-VALUE 

REM (2) 

SQRT 

SUM 

UPPER-CASE 
WHEN-COMPILED 


Function-Name 
ANNUITY (2) 
CHAR 
CURRENT-DATE 
DAY-OF-INTEGER 
FACTORIAL (2) 
INTEGER-OF-DATE 
LENGTH 

LOG 

MAX 

MIDRANGE 
NUMVAL 
ORD-MAX 
RANDOM (2) 
REVERSE 
STANDARD-DEVIATION 
TAN 

UTF8STRING (1) 
YEAR-TO-YYYY (1) 


Context-Sensitive Words 


IBM Extension 


Context-Sensitive Word 


Context 


DAYS 


MOVE FUNCTION ADD-DURATION(date-1 DAYS 90) 


(Also can be used in SUBTRACT-DURATION, 
FIND-DURATION, and EXTRACT-DATE-TIME.) 
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Context-Sensitive Word Context 
DEFAULT SET LOCALE LC_ALL FROM DEFAULT 
HOURS MOVE FUNCTION ADD-DURATION(time-1 HOURS 90) 


(Also can be used in SUBTRACT-DURATION, 
FIND-DURATION, and EXTRACT-DATE-TIME.) 


LC_ALL SET LOCALE LC_ALL FROM DEFAULT 

LC_COLLATE SET LOCALE LC_COLLATE FROM DEFAULT 
LC_CURRENCY SET LOCALE LC_CURRENCY FROM DEFAULT 
LC_MESSAGES SET LOCALE LC_MESSAGES FROM DEFAULT 
LC_MONETARY SET LOCALE LC_MONETARY FROM DEFAULT 

LC_NUMERIC SET LOCALE LC_NUMERIC FROM DEFAULT 

LC_TIME SET LOCALE LC_TIME FROM DEFAULT 

LC_TYPE SET LOCALE LC_TYPE FROM DEFAULT 

MICROSECONDS MOVE FUNCTION ADD-DURATION(time-1 MICROSECONDS 30) 


(Also can be used in SUBTRACT-DURATION, 
FIND-DURATION, and EXTRACT-DATE-TIME.) 


MINUTES MOVE FUNCTION ADD-DURATION(time-1 MINUTES 35) 


(Also can be used in SUBTRACT-DURATION, 
FIND-DURATION, and EXTRACT-DATE-TIME.) 


MONTHS MOVE FUNCTION ADD-DURATION(date-1 MONTHS 12) 


(Also can be used in SUBTRACT-DURATION, 
FIND-DURATION, and EXTRACT-DATE-TIME.) 


SECONDS MOVE FUNCTION ADD-DURATION(time-1 SECONDS 30) 


(Also can be used in SUBTRACT-DURATION, 
FIND-DURATION, and EXTRACT-DATE-TIME.) 


SYMBOL CURRENCY IS "EUR" PICTURE SYMBOL "$" 


TIMESTAMP 05 date-1 FORMAT TIMESTAMP 


(Also found in SPECIAL-NAMES paragraph, intrinsic 
functions TEST-DATE-TIME and CONVERT-DATE-TIME.) 


YEARS MOVE FUNCTION ADD-DURATION(date-1 YEARS 2) 


(Also can be used in SUBTRACT-DURATION, 
FIND-DURATION, and EXTRACT-DATE-TIME.) 


YYYYDDD ACCEPT id-1 FROM DATE YYYYDDD 


YYYYMMDD ACCEPT id-1 FROM DATE YYYYMMDD 


End of IBM Extension 
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Chapter 13. ILE COBOL Reserved Word List 


The following sections list all of the reserved words in ILE COBOL. 


Visual Key 


The following key identifies the reserved words in the ILE COBOL language: 
Blank An ILE COBOL reserved word from Standard COBOL. 
(1) An ILE COBOL reserved word that is an IBM extension to the Standard 


COBOL. 


(2) A COBOL reserved word from Standard COBOL that is not used by the 
ILE COBOL compiler. These words should not be used if compatibility is 
important to an installation. If used, a diagnostic message will be issued. 


(3) A COBOL reserved word that is not in Standard COBOL and is not 
supported by the ILE COBOL compiler. If used, a diagnostic message will 


be issued. 


Reserved Words 


Reserved Word 
ACCEPT 
ACQUIRE (1) 
ADDRESS (1) 
AFTER 

ALL 
ALPHABETIC 


ALPHABETIC-UPPER 
ALPHANUMERIC-EDITED 


ALTER 
AND 

ARE 

AREAS 
ASCENDING 
AT 

AUTHOR 
AUTO-SKIP (1) 


BACKGROUND-COLOR (1) 


B-AND (3) 
BEFORE 
B-EXOR (3) 
BIT (3) 
BLANK 
BLINK (1) 
B-NOT (3) 
B-OR (3) 
BY 
CANCEL 
CF (2) 
CHARACTER 
CLASS 
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ACCESS 

ADD 
ADVANCING 
ALIAS (1) 
ALPHABET 
ALPHABETIC-LOWER 
ALPHANUMERIC 
ALSO 
ALTERNATE 
ANY (2) 

AREA 
ARITHMETIC (3) 
ASSIGN 
ATTRIBUTE (1) 
AUTO (1) 
AUTOMATIC (3) 
BACKGROUND-COLOUR (1) 
BEEP (1) 

BELL (1) 
BINARY 

BITS (3) 

B-LESS (3) 
BLOCK 
BOOLEAN (3) 
BOTTOM 

CALL 

CD (2) 

CH (2) 
CHARACTERS 
CLOCK-UNITS 
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Reserved Word 

CLOSE 

CODE 

COL (1) 

COLUMN 

COMMIT (1) 
COMMON 

COMP 

COMP-1 (1) 

COMP-3 (1) 

COMP-5 (3) 

COMP-7 (3) 

COMP-9 (3) 
COMPUTATIONAL-0 (3) 
COMPUTATIONAL-2 (1) 
COMPUTATIONAL-4 (1) 
COMPUTATIONAL-6 (3) 
COMPUTATIONAL-8 (3) 
COMPUTE 

CONNECT (3) 
CONTAINED (3) 
CONTENT 

CONTROL 

CONTROLS 

COPY 
CORRESPONDING 

CRT (1) 

CURRENCY 

CURSOR (1) 

DATE 

DATE-WRITTEN 
DAY-OF-WEEK 
DB-ACCESS-CONTROL-KEY (3) 
DB-EXCEPTION (3) 
DB-RECORD-NAME (3) 
DB-STATUS (3) 
DBCS-EDITED (1) 
DEBUG-CONTENTS 
DEBUG-LINE 
DEBUG-SUB-1 
DEBUG-SUB-3 
DECIMAL-POINT 
DEFAULT (3) 
DELIMITED 
DEPENDING 
DESCRIBED (1) 
DETAIL (2) 
DISCONNECT (3) 
DISPLAY-1 (1) 
DISPLAY-3 (3) 
DISPLAY-5 (3) 
DISPLAY-7 (3) 
DISPLAY-9 (3) 
DIVISION 

DROP (1) 


fy pas Gs 
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Reserved Word 

COBOL (2) 

CODE-SET 

COLLATING 

COMMA 
COMMITMENT (1) 
COMMUNICATION (2) 
COMP-0 (3) 

COMP-2 (1) 

COMP-4 (1) 

COMP-6 (3) 

COMP-8 (3) 
COMPUTATIONAL 
COMPUTATIONAL-1 (1) 
COMPUTATIONAL-3 (1) 
COMPUTATIONAL-5 (3) 
COMPUTATIONAL-7 (3) 
COMPUTATIONAL-9 (3) 
CONFIGURATION 
CONSOLE (1) 
CONTAINS 

CONTINUE 
CONTROL-AREA (1) 
CONVERTING 

CORR 

COUNT 

CRT-UNDER (1) 
CURRENT (3) 

DATA 
DATE-COMPILED 

DAY 

DB (3) 
DB-DATA-NAME (3) 
DB-FORMAT-NAME (1) 
DB-SET-NAME (3) 
DBCS (1) 
DE (2) 
DEBUG-ITEM 
DEBUG-NAME 
DEBUG-SUB-2 
DEBUGGING 
DECLARATIVES 
DELETE 
DELIMITER 
DESCENDING 
DESTINATION (2) 
DISABLE (2) 
DISPLAY 
DISPLAY-2 (3 
DISPLAY-4 (3 
DISPLAY-6 (3 
DISPLAY-8 (3 
DIVIDE 
DOWN 
DUPLICATE (3) 


wewrmoewre wae 


Reserved Word 
DUPLICATES 
EBCDIC (1) 

EJECT (1) 

MI (2) 
MPTY-CHECK (1) 


Z 
i) 


ND-ADD 
ND-COMPUTE 
ND-DISPLAY (1) 
ND-EVALUATE 
ND-INVOKE (1) 
ND-OF-PAGE 
ND-READ 
ND-RETURN 
ND-SEARCH 
ND-STRING 
ND-UNSTRING 
NTER 
NVIRONMENT 
EQUAL 

ERASE (3) 

ESI (2) 

EVERY 
EXCEPTION 
EXIT 

EXTERNAL 
FALSE 

FETCH (3) 
FILE-CONTROL 
FILLER 

FIND (3) 

FIRST 

FOR 


HMmhHhmhnhmt tm mn tooo ee 


FOREGROUND-COLOUR (1) 


FREE (3) 
FULL (1) 
GENERATE 
GIVING 

GO 
GREATER 
HEADING (2) 
HIGH-VALUE 


DEX 
DEX-1 (3) 
DEX-3 (3) 
DEX-5 (3) 
DEX-7 (3) 
DEX-9 (3) 
DICATE 
DICATORS (1) 
ITIALIZE 


22228 2 2 722 
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DYNAMIC 

EGI (2) 

ELSE 


EMPTY (3) 
ENABLE (2) 
END-ACCEPT (1) 


END-CALL 
END-DELETE 
END-DIVIDE 
END-IF 
END-MULTIPLY 
END-PERFORM 


END-RECEIVE (2) 


END-REWRITE 
END-START 
END-SUBTRACT 
END-WRITE 


ENTRY (1) 
EOP 


EQUALS (3) 

ERROR 

EVALUATE 

EXCEEDS (3) 

EXCLUSIVE (3) 

EXTEND 
EXTERNALLY-DESCRIBED-KEY (1) 


FD 


FILE 
FILES (3) 

FINAL (2) 

FINISH (3) 

FOOTING 
FOREGROUND-COLOR (1) 
FORMAT (1) 

FROM 

FUNCTION 

GET (3) 

GLOBAL 

GOBACK (1) 

GROUP (2) 

HIGHLIGHT (1) 
HIGH-VALUES 
1-O-CONTROL 
IDENTIFICATION 


2222.64 42.2 2 


DEXED 
DEX-2 (3) 
DEX-4 (3) 
DEX-6 (3) 
DEX-8 (3) 
DIC (1) 
DICATOR (1) 
ITIAL 
ITIATE 
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Reserved Word 
INPUT 

INSPECT 

INTO 

INVOKE (1) 

JUST 

KANJI (1) 

KEY 

LAST 

LEADING 
LEFT-JUSTIFY (1) 
LENGTH-CHECK (1) 
LIBRARY (1) 
LIMIT (2) 
LINAGE 

LINE 

LINES 

LOCALE (1) 
LOCAL-STORAGE (1) 
LOW-VALUE 
MEMBER (3) 
MERGE 

MODE 

MODIFY (3) 
MOVE 

MULTIPLY 
NATIONAL 
NEGATIVE 

NO 

NONE (3) 
NULL-KEY-MAP (1) 
NULL (1) 
NUMBER 
NUMERIC-EDITED 
OBJECT-COMPUTER 
OF 

OMITTED 

ONLY (3) 
OPTIONAL 
ORDER 

OTHER 
OVERFLOW 
PACKED-DECIMAL 
PAGE 

PERFORM 

PH (2) 

PLUS (2) 
POINTER 
POSITIVE 
PRESENT (3) 
PRIOR (1) 


PROCEDURE-POINTER (1) 


PROCEED 
PROGRAM-ID 
PROGRAM 
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INPUT-OUTPUT 
INSTALLATION 
INVALID 

IS 

JUSTIFIED 
KEEP (3) 
LABEL 

LD (3) 

LEFT 

LENGTH 

LESS 

LIKE (1) 
LIMITS (2) 
LINAGE-COUNTER 
LINE-COUNTER (2) 
LINKAGE 
LOCALLY (3) 
LOCK 
LOW-VALUES 
MEMORY 
METACLASS (1) 
MODIFIED (1) 
MODULES 
MULTIPLE 
MESSAGE (2) 
NATIVE 

NEXT 
NO-ECHO (1) 
NOT 
NULL-MAP (1) 
NULLS (1) 
NUMERIC 
OBJECT (1) 
OCCURS 

OFF 

ON 

OPEN 

OR 
ORGANIZATION 
OUTPUT 
OWNER (3) 
PADDING 
PAGE-COUNTER (2) 
PF (2) 
PICTURE 

PIC 

POSITION 
PREFIX (1) 
PRINTING 
PROCEDURE 
PROCEDURES 
PROCESS (1) 
PROMPT (1) 
PROTECTED (3) 


Reserved Word 
PURGE (2) 
QUOTE 
RANDOM 
READ 

REALM (3) 
RECURSIVE (1) 
RECORD 
RECORDS 
REEL 


REFERENCE-MONITOR (3) 


RELATION (3) 
RELEASE 
REMOVAL 
REPEATED (3) 
REPLACING 
REPORTING (2) 
REPOSITORY (1) 
RERUN 

RESET 
RETRIEVAL (3) 
RETURNING (1) 
REVERSED 
REWIND 

RE (2) 

RIGHT 
ROLLBACK (1) 
ROUNDED 
SAME 

SD 

SECTION 
SECURITY 
SEGMENT-LIMIT 
SEND (2) 
SEPARATE 
SEQUENTIAL 
SHARED (3) 
SIZE 

SKIP2 (1) 

SORT 


SORT-RETURN (1) 
SOURCE-COMPUTER 


SPACE-FILL (1) 
SPECIAL-NAMES 
STANDARD-1 
START 

STATUS 

STORE (3) 
SUB-QUEUE-1 (2) 
SUB-QUEUE-3 (2) 
SUBFILE (1) 
SUBTRACT 
SUPPRESS 

SYNC 

SYSIN (1) 
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QUEUE (2) 
QUOTES 

RD (2) 

READY (3) 
RECEIVE (2) 
RECONNECT (3) 
RECORD-NAME (3) 
REDEFINES 
REFERENCE 
REFERENCES 
RELATIVE 
REMAINDER 
RENAMES 
REPLACE 
REPORT (2) 
REPORTS (2) 
REQUIRED (1) 
RESERVE 
RETAINING (3) 
RETURN 
RETURN-CODE (1) 
REVERSE-VIDEO (1) 
REWRITE 

RH (2) 
RIGHT-JUSTIFY (1) 
ROLLING (1) 
RUN 

SCREEN (1) 
SEARCH 
SECURE (1) 
SEGMENT (2) 
SELECT 
SENTENCE 
SEQUENCE 

SET 

SIGN 

SKIP1 (1) 

SKIP3 (1) 
SORT-MERGE 
SOURCE (2) 
SPACE 

SPACES 
STANDARD 
STANDARD-2 
STARTING (1) 
STOP 

STRING 
SUB-QUEUE-2 (2) 
SUB-SCHEMA (3) 
SUBSTITUTE (1) 
SUM (2) 
SYMBOLIC 
SYNCHRONIZED 
SYSOUT (1) 
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Reserved Word 
TABLE (2) 
TAPE 
TERMINAL 
TEST 

THAN 
THROUGH 
TIME 

TITLE (1) 

TOP 


TRAILING-SIGN (1) 


TRUE 
TYPEDEF (1) 
UNEQUAL (3) 
UNSTRING 
UP 

UPON 


USAGE-MODE (3) 


USING 
VALIDATE (3) 
VALUES 

VLR (1) 
WHEN 

WITH 
WORDS 
WRITE 
ZEROES 
ZEROS 
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Reserved Word 
TALLYING 
TENANT (3) 
TERMINATE (2) 
TEXT (2) 

THEN 

THRU 

TIMES 

TO 

TRAILING 
TRANSACTION (1) 
TYPE 
UNDERLINE (1) 
UNIT 

UNTIL 

UPDATE (1) 
USAGE 

USE 

VALID (3) 

VALUE 

VARYING 

WAIT (3) 
WHEN-COMPILED (1) 
WITHIN (3) 
WORKING-STORAGE 
ZERO 

ZERO-FILL (1) 

< 
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Notices 


Any reference to an IBM licensed program in this publication is not intended to 
state or imply that only IBM’s licensed program may be used. Any functionally 
equivalent product, program, or service that does not infringe any of IBM’s 
intellectual property rights may be used instead of the IBM product, program, or 
service. Evaluation and verification of operation in conjunction with other 
products, except those expressly designated by IBM, is the user’s responsibility. 


IBM may have patents or pending patent applications covering subject matter in 
this document. The furnishing of this document does not give you any license to 
these patents. You can send license inquiries, in writing, to: 


IBM Director of Licensing 
IBM Corporation 

North Castle Drive 
Armonk, NY 10504-1785 
U.S.A. 


The following paragraph does not apply to the United Kingdom or any other 
country where such provisions are inconsistent with local law: 
INTERNATIONAL BUSINESS MACHINES CORPORATION PROVIDES THIS 
PUBLICATION “AS IS” WITHOUT WARRANTY OF ANY KIND, EITHER 
EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
WARRANTIES OF NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS 
FOR A PARTICULAR PURPOSE. Some states do not allow disclaimer of express or 
implied warranties in certain transactions, therefore, this statement may not apply 
to you. 


This information could include technical inaccuracies or typographical errors. 
Changes are periodically made to the information herein; these changes will be 
incorporated in new editions of the publication. IBM may make improvements 
and/or changes in the product(s) and/or the program(s) described in this 
publication at any time without notice. 


Licensees of this program who wish to have information about it for the purpose 
of enabling: (i) the exchange of information between independent created programs 
and other programs (including this one) and (ii) the mutual use of the information 
which has been exchanged, should contact: 


IBM Canada Ltd. Laboratory 
Information Development 

8200 Warden Avenue 

Markham, Ontario, Canada L6G 1C7 


Such information may be available, subject to appropriate terms and conditions, 
including in some cases payment of a fee. 


The licensed program described in this information and all licensed material 
available for it are provided by IBM under terms of the IBM Customer Agreement, 
IBM International Program License Agreement, or any equivalent agreement 
between us. 
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This publication contains examples of data and reports used in daily business 
operations. To illustrate them as completely as possible, the examples include the 
names of individuals, companies, brands, and products. All of these names are 
fictitious and any similarity to the names and addresses used by an actual business 
enterprise is entirely coincidental. 


Programming Interface Information 


This summary is intended to help you write ILE COBOL programs. It contains 
information necessary for you to use the ILE COBOL compiler. This summary 
documents no programming interfaces for use in writing programs that request or 
receive the services of the ILE COBOL compiler. 


Trademarks and Service Marks 


The following terms are trademarks of International Business Machines 
Corporation in the United States or other countries or both: 


400 ILE COBOL /400 

Application System /400 Integrated Language Environment 
AS/400e iSeries 

COBOL /400 Operating System /400 

@server OS/400 

IBM 


Java and all Java-based trademarks and logos are trademarks or registered 
trademarks of Sun Microsystems, Inc. in the United States and other countries. 


Other company, product, and service names, which may be denoted by a double 
asterisk(**), may be trademarks or service marks of others. 
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